Changeset 11200 for branches/UKMO/dev_r5518_obs_oper_update_icethick/NEMOGCM/NEMO/OPA_SRC/SBC

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/SBC/sbcice_cice.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_obs_oper_update_icethick/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

@@ -57 +57 @@
                 flatn_f,fsurfn_f,fcondtopn_f,                    &
 #ifdef key_asminc
-                daice_da,dsit_da,fresh_da,fsalt_da,             &
+                daice_da,dhi_da,fresh_da,fsalt_da,             &
 #endif
                 uatm,vatm,wind,fsw,flw,Tair,potT,Qa,rhoa,zlvl,   &
@@ -516 +516 @@
 !Ice thickness change (from assimilation)
       ztmp(:,:)=ndsit_da(:,:)*tmask(:,:,1)
-      Call nemo2cice(ztmp,dsit_da,'T', 1. )
+      Call nemo2cice(ztmp,dhi_da,'T', 1. )
 #endif