Changeset 11200


Ignore:
Timestamp:
2019-07-01T10:51:24+02:00 (13 months ago)
Author:
emmafiedler
Message:

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

Location:
branches/UKMO/dev_r5518_obs_oper_update_icethick/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_obs_oper_update_icethick/NEMOGCM/NEMO/OPA_SRC/OBS/obs_prep.F90

    r10712 r11200  
    736736       
    737737           IF ( ( kobsstp(jobs) == (nit000 - 1) ) ) THEN 
    738               WRITE(numout,*)( 'Sea-ice not initialised on zeroth '// & 
    739                         &    'time-step but observation valid then, flagging '// & 
     738              IF (lwp) WRITE(numout,*)( 'Sea-ice not initialised on zeroth '// & 
     739                        &    'time-step but SIT observation valid then, flagging '// & 
    740740                             'in time check subroutine obs_coo_tim.' )                   
    741741              kobsqc(jobs) = IBSET(kobsqc(jobs),13) 
  • branches/UKMO/dev_r5518_obs_oper_update_icethick/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r10276 r11200  
    5757                flatn_f,fsurfn_f,fcondtopn_f,                    & 
    5858#ifdef key_asminc 
    59                 daice_da,dsit_da,fresh_da,fsalt_da,             & 
     59                daice_da,dhi_da,fresh_da,fsalt_da,             & 
    6060#endif 
    6161                uatm,vatm,wind,fsw,flw,Tair,potT,Qa,rhoa,zlvl,   & 
     
    516516!Ice thickness change (from assimilation) 
    517517      ztmp(:,:)=ndsit_da(:,:)*tmask(:,:,1) 
    518       Call nemo2cice(ztmp,dsit_da,'T', 1. ) 
     518      Call nemo2cice(ztmp,dhi_da,'T', 1. ) 
    519519#endif  
    520520 
Note: See TracChangeset for help on using the changeset viewer.