Changeset 12680 for NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/ICE

Timestamp:

2020-04-03T18:54:55+02:00 (4 years ago)

Author:

techene

Message:

dynatfQCO.F90, stepLF.F90 : fixed (remove pe3. from dyn_atf_qco input arguments), all : remove e3. tables and include gurvan's feedbacks

File:

• NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/ICE/iceistate.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/ICE/iceistate.F90

@@ -60 +60 @@
    INTEGER , PARAMETER ::   jp_hpd = 9           ! index of pnd depth        (m)
    TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   si  ! structure of input fields (file informations, fields read)
-   !
+
    !! * Substitutions
 #  include "do_loop_substitute.h90"
@@ -102 +102 @@
       REAL(wp), DIMENSION(jpi,jpj)     ::   zt_su_ini, zht_s_ini, zsm_i_ini, ztm_i_ini !data from namelist or nc file
       REAL(wp), DIMENSION(jpi,jpj)     ::   zapnd_ini, zhpnd_ini                       !data from namelist or nc file
-      REAL(wp), DIMENSION(jpi,jpj,jpl) ::   zti_3d , zts_3d                            !temporary arrays
+      REAL(wp), DIMENSION(jpi,jpj,jpl) ::   zti_3d , zts_3d                            !locak arrays
       !!
       REAL(wp), DIMENSION(:,:), ALLOCATABLE ::   zhi_2d, zhs_2d, zai_2d, zti_2d, zts_2d, ztsu_2d, zsi_2d, zaip_2d, zhip_2d
@@ -452 +452 @@
       !!
       !!-----------------------------------------------------------------------------
-      INTEGER ::   ios   ! Local integer output status for namelist read
-      INTEGER ::   ifpr, ierror
+      INTEGER ::   ios, ifpr, ierror   ! Local integers
+
       !
       CHARACTER(len=256) ::  cn_dir          ! Root directory for location of ice files