Changeset 11200 for branches/UKMO/dev_r5518_obs_oper_update_icethick/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

Timestamp:

2019-07-01T10:51:24+02:00 (5 years ago)

Author:

emmafiedler

Message:

Avoid multiple lines of write statement and change of variable name following CICE review

File:

• branches/UKMO/dev_r5518_obs_oper_update_icethick/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_obs_oper_update_icethick/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

@@ -736 +736 @@
       
            IF ( ( kobsstp(jobs) == (nit000 - 1) ) ) THEN
-              WRITE(numout,*)( 'Sea-ice not initialised on zeroth '// &
-                        &    'time-step but observation valid then, flagging '// &
+              IF (lwp) WRITE(numout,*)( 'Sea-ice not initialised on zeroth '// &
+                        &    'time-step but SIT observation valid then, flagging '// &
                              'in time check subroutine obs_coo_tim.' )                  
               kobsqc(jobs) = IBSET(kobsqc(jobs),13)