Changeset 9123 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90

Timestamp:

2017-12-18T23:34:28+01:00 (6 years ago)

Author:

clem

Message:

solve issue with Prather scheme and restart

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90 (modified) (2 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90

@@ -135 +135 @@
       ! Snow enthalpy (1st snow layer only)
       z3d = e_s(:,:,1,:)
-      CALL iom_rstput( iter, nitrst, numriw, 'tempt_sl1' , z3d )
+      CALL iom_rstput( iter, nitrst, numriw, 'e_s_l01' , z3d )
       ! Ice enthalpy (all ice layers)
       DO jk = 1, nlay_i 
          WRITE(zchar1,'(I2.2)') jk
-         znam = 'tempt'//'_il'//zchar1
+         znam = 'e_i'//'_l'//zchar1
          z3d(:,:,:) = e_i(:,:,jk,:)
          CALL iom_rstput( iter, nitrst, numriw, znam , z3d )
@@ -221 +221 @@
 !!gm dangerous !!!!!  ===>>>> better reading writing all snow layers !
       ! Snow enthalpy (1st snow layer only)
-      CALL iom_get( numrir, jpdom_autoglo, 'tempt_sl1' , z3d )
+      CALL iom_get( numrir, jpdom_autoglo, 'e_s_l01' , z3d )
       e_s(:,:,1,:) = z3d
       ! Ice enthalpy (all ice layers)
       DO jk = 1, nlay_i 
          WRITE(zchar1,'(I2.2)') jk
-         znam = 'tempt'//'_il'//zchar1
+         znam = 'e_i'//'_l'//zchar1
          CALL iom_get( numrir, jpdom_autoglo, znam , z3d )
          e_i(:,:,jk,:) = z3d(:,:,:)