Changeset 8325 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

Timestamp:

2017-07-12T16:51:20+02:00 (7 years ago)

Author:

clem

Message:

STEP4 (1): put all thermodynamics in 1D

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90 (modified) (2 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limthd_lac.F90

@@ -446 +446 @@
             ! for remapping
             h_i_old (1:nbpac,0:nlay_i+1) = 0._wp
-            qh_i_old(1:nbpac,0:nlay_i+1) = 0._wp
+            eh_i_old(1:nbpac,0:nlay_i+1) = 0._wp
             DO jk = 1, nlay_i
                DO ji = 1, nbpac
                   h_i_old (ji,jk) = zv_i_1d(ji,jl) * r1_nlay_i
-                  qh_i_old(ji,jk) = ze_i_1d(ji,jk,jl) * h_i_old(ji,jk)
+                  eh_i_old(ji,jk) = ze_i_1d(ji,jk,jl) * h_i_old(ji,jk)
                END DO
             END DO
@@ -462 +462 @@
                ! for remapping
                h_i_old (ji,nlay_i+1) = zv_newfra
-               qh_i_old(ji,nlay_i+1) = ze_newice(ji) * zv_newfra
+               eh_i_old(ji,nlay_i+1) = ze_newice(ji) * zv_newfra
             ENDDO
             ! --- Ice enthalpy remapping --- !