Changeset 15487 for NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_read_surf.F90

Timestamp:

2021-11-09T16:27:42+01:00 (3 years ago)

Author:

dford

Message:

Remove some comments and add some spaces.

File:

• NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_read_surf.F90 (modified) (3 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_read_surf.F90

@@ -325 +325 @@
             ENDIF
 
-            IF (lwp) WRITE(numout,*)'Observation file contains ',inpfiles(jj)%nobs,' observations'
+            IF (lwp) WRITE(numout,*) 'Observation file contains ', inpfiles(jj)%nobs, ' observations'
 
             !------------------------------------------------------------------
@@ -595 +595 @@
                   ityp(itype+1) = ityp(itype+1) + 1
                ELSE
-                  IF(lwp)WRITE(numout,*)'WARNING:Increase jpsurfmaxtype in ',&
-                     &                  cpname
+                  IF(lwp)WRITE(numout,*) 'WARNING: Increase jpsurfmaxtype in ', &
+                     &                   cpname
                ENDIF
 
@@ -665 +665 @@
          DO jj = 1,8
             IF ( itypmpp(jj) > 0 ) THEN
-               WRITE(numout,'(1X,A4,I4,A3,I10)')'Type ', jj,' = ',itypmpp(jj)
+               WRITE(numout,'(1X,A4,I4,A3,I10)') 'Type ', jj, ' = ', itypmpp(jj)
             ENDIF
          END DO