diff --git a/model/src/w3odatmd.F90 b/model/src/w3odatmd.F90 index fa894a7a75..408f36fe69 100644 --- a/model/src/w3odatmd.F90 +++ b/model/src/w3odatmd.F90 @@ -171,7 +171,7 @@ MODULE W3ODATMD ! IW I.A. Public Id. water. ! II I.A. Public Id. ice. ! IRQPO1/2 I.A. Public Array with MPI handles. (!/MPI) - ! PTLOC R.A. Public Name of output locations. + ! PTLOC R.A. Public Output locations. ! PTIFAC R.A. Public Interpolation weights. ! DPO R.A. Public Interpolated depths. ! WAO R.A. Public Interpolated wind speeds. @@ -186,7 +186,7 @@ MODULE W3ODATMD ! ICEO R.A. Public Interpolated ice concentration. ! ICEHO R.A. Public Interpolated ice thickness. ! ICEFO R.A. Public Interpolated ice floe. - ! PTNME C.A. Public Output locations. + ! PTNME C.A. Public Name of output locations. ! GRDID C.A. Public Originating grid ID. ! O2INIT Log. Public Flag for array initialization. ! O2IRQI Log. Public Flag for array initialization. diff --git a/model/src/ww3_prnc.F90 b/model/src/ww3_prnc.F90 index 1d54c7432b..980b7553a5 100644 --- a/model/src/ww3_prnc.F90 +++ b/model/src/ww3_prnc.F90 @@ -2696,7 +2696,7 @@ SUBROUTINE CHECK_ERROR(IRET, ILINE) INTEGER IRET, ILINE IF (IRET .NE. NF90_NOERR) THEN - WRITE(NDSE,*) ' *** WAVEWATCH III ERROR IN OUNF :' + WRITE(NDSE,*) ' *** WAVEWATCH III ERROR IN PRNC :' WRITE(NDSE,*) ' LINE NUMBER ', ILINE WRITE(NDSE,*) ' NETCDF ERROR MESSAGE: ' WRITE(NDSE,*) NF90_STRERROR(IRET)