Changeset 15487 for NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_oper.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_oper.F90 (modified) (6 diffs)

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

@@ -210 +210 @@
          zdaystp = 1.0 / REAL( kdaystp )
          IF ( idayend == 0 ) THEN
-            IF (lwp) WRITE(numout,*) 'Calculating prodatqc%vdmean on time-step: ',kt
+            IF (lwp) WRITE(numout,*) 'Calculating prodatqc%vdmean on time-step: ', kt
             CALL FLUSH(numout)
             DO jk = 1, jpk
@@ -658 +658 @@
          ! Added kt == 0 test to catch restart case
          IF ( ( imeanend == 1 ) .OR. ( kt == 0 ) ) THEN
-            IF (lwp) WRITE(numout,*) 'Reset surfdataqc%vdmean on time-step: ',kt
+            IF (lwp) WRITE(numout,*) 'Reset surfdataqc%vdmean on time-step: ', kt
             DO jj = 1, jpj
                DO ji = 1, jpi
@@ -667 +667 @@
 
          ! On each time-step, increment the field for computing time mean
-         IF (lwp) WRITE(numout,*)'Accumulating surfdataqc%vdmean on time-step: ',kt
+         IF (lwp) WRITE(numout,*)'Accumulating surfdataqc%vdmean on time-step: ', kt
          DO jj = 1, jpj
             DO ji = 1, jpi
@@ -678 +678 @@
          IF ( imeanend == 0 ) THEN
             zmeanstp = 1.0 / REAL( kmeanstp )
-            IF (lwp) WRITE(numout,*)'Calculating surfdataqc%vdmean time mean on time-step: ',kt,' with weight: ',zmeanstp
+            IF (lwp) WRITE(numout,*) 'Calculating surfdataqc%vdmean time mean on time-step: ', &
+               &                     kt, ' with weight: ', zmeanstp
             DO jj = 1, jpj
                DO ji = 1, jpi
@@ -732 +733 @@
          zdaystp = 1.0 / REAL( kdaystp )
          IF ( idayend == 0 ) THEN
-            IF (lwp) WRITE(numout,*) 'Calculating surfdataqc%vdmean on time-step: ',kt
+            IF (lwp) WRITE(numout,*) 'Calculating surfdataqc%vdmean on time-step: ', kt
             DO jj = 1, jpj
                DO ji = 1, jpi
@@ -817 +818 @@
          IF ( imeanend == 0 ) THEN
             ALLOCATE( zsurfm(imaxifp,imaxjfp,isurf) )
-            IF (lwp) WRITE(numout,*)' Interpolating the time mean values on time step: ',kt
+            IF (lwp) WRITE(numout,*)' Interpolating the time mean values on time step: ', kt
             CALL obs_int_comm_2d( imaxifp, imaxjfp, isurf, kpi, kpj, &
                &                  igrdi, igrdj, surfdataqc%vdmean(:,:,kvar), zsurfm )