Ignore:
Timestamp:
2020-04-03T18:54:55+02:00 (13 months 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:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/ICE/iceistate.F90

    r12679 r12680  
    6060   INTEGER , PARAMETER ::   jp_hpd = 9           ! index of pnd depth        (m) 
    6161   TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   si  ! structure of input fields (file informations, fields read) 
    62    ! 
     62 
    6363   !! * Substitutions 
    6464#  include "do_loop_substitute.h90" 
     
    102102      REAL(wp), DIMENSION(jpi,jpj)     ::   zt_su_ini, zht_s_ini, zsm_i_ini, ztm_i_ini !data from namelist or nc file 
    103103      REAL(wp), DIMENSION(jpi,jpj)     ::   zapnd_ini, zhpnd_ini                       !data from namelist or nc file 
    104       REAL(wp), DIMENSION(jpi,jpj,jpl) ::   zti_3d , zts_3d                            !temporary arrays 
     104      REAL(wp), DIMENSION(jpi,jpj,jpl) ::   zti_3d , zts_3d                            !locak arrays 
    105105      !! 
    106106      REAL(wp), DIMENSION(:,:), ALLOCATABLE ::   zhi_2d, zhs_2d, zai_2d, zti_2d, zts_2d, ztsu_2d, zsi_2d, zaip_2d, zhip_2d 
     
    452452      !! 
    453453      !!----------------------------------------------------------------------------- 
    454       INTEGER ::   ios   ! Local integer output status for namelist read 
    455       INTEGER ::   ifpr, ierror 
     454      INTEGER ::   ios, ifpr, ierror   ! Local integers 
     455 
    456456      ! 
    457457      CHARACTER(len=256) ::  cn_dir          ! Root directory for location of ice files 
Note: See TracChangeset for help on using the changeset viewer.