Ignore:
Timestamp:
2017-09-07T20:08:11+02:00 (3 years ago)
Author:
clem
Message:

changes in style - part5 - reaching the end

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/iceist.F90

    r8506 r8512  
    4747   TYPE(FLD), ALLOCATABLE, DIMENSION(:) ::   si  ! structure of input fields (file informations, fields read) 
    4848   ! 
    49    ! ** namelist (namiceini) ** 
    50    LOGICAL  ::   ln_limini        ! initialization or not 
    51    LOGICAL  ::   ln_limini_file   ! Ice initialization state from 2D netcdf file 
     49   ! ** namelist (namice_ini) ** 
     50   LOGICAL  ::   ln_iceini        ! initialization or not 
     51   LOGICAL  ::   ln_iceini_file   ! Ice initialization state from 2D netcdf file 
    5252   REAL(wp) ::   rn_thres_sst     ! threshold water temperature for initial sea ice 
    5353   REAL(wp) ::   rn_hts_ini_n     ! initial snow thickness in the north 
     
    126126      ! 2) Initialization of sea ice state variables 
    127127      !-------------------------------------------------------------------- 
    128       IF( ln_limini ) THEN 
     128      IF( ln_iceini ) THEN 
    129129         ! 
    130          IF( ln_limini_file )THEN 
     130         IF( ln_iceini_file )THEN 
    131131         ! 
    132132            zht_i_ini(:,:)  = si(jp_hti)%fnow(:,:,1) 
     
    141141            END WHERE 
    142142            ! 
    143          ELSE ! ln_limini_file = F 
     143         ELSE ! ln_iceini_file = F 
    144144 
    145145            !-------------------------------------------------------------------- 
     
    175175            END DO 
    176176            ! 
    177          ENDIF ! ln_limini_file 
     177         ENDIF ! ln_iceini_file 
    178178          
    179179         zvt_i_ini(:,:) = zht_i_ini(:,:) * zat_i_ini(:,:)   ! ice volume 
     
    403403         ! END MV MP 2016 
    404404 
    405       ELSE ! if ln_limini=false 
     405      ELSE ! if ln_iceini=false 
    406406         a_i  (:,:,:) = 0._wp 
    407407         v_i  (:,:,:) = 0._wp 
     
    431431         h_ip     (:,:,:) = 0._wp 
    432432 
    433       ENDIF ! ln_limini 
     433      ENDIF ! ln_iceini 
    434434       
    435435      at_i (:,:) = 0.0_wp 
     
    518518      !! ** Purpose : Definition of initial state of the ice  
    519519      !! 
    520       !! ** Method : Read the namiceini namelist and check the parameter  
     520      !! ** Method : Read the namice_ini namelist and check the parameter  
    521521      !!       values called at the first timestep (nit000) 
    522522      !! 
    523523      !! ** input :  
    524       !!        Namelist namiceini 
     524      !!        Namelist namice_ini 
    525525      !! 
    526526      !! history : 
     
    537537      TYPE(FLD_N), DIMENSION(jpfldi) ::   slf_i                 ! array of namelist informations on the fields to read 
    538538      ! 
    539       NAMELIST/namiceini/ ln_limini, ln_limini_file, rn_thres_sst, rn_hts_ini_n, rn_hts_ini_s,  & 
     539      NAMELIST/namice_ini/ ln_iceini, ln_iceini_file, rn_thres_sst, rn_hts_ini_n, rn_hts_ini_s,  & 
    540540         &                rn_hti_ini_n, rn_hti_ini_s, rn_ati_ini_n, rn_ati_ini_s, rn_smi_ini_n, & 
    541541         &                rn_smi_ini_s, rn_tmi_ini_n, rn_tmi_ini_s,                             & 
     
    543543      !!----------------------------------------------------------------------------- 
    544544      ! 
    545       REWIND( numnam_ice_ref )              ! Namelist namiceini in reference namelist : Ice initial state 
    546       READ  ( numnam_ice_ref, namiceini, IOSTAT = ios, ERR = 901) 
    547 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in reference namelist', lwp ) 
    548  
    549       REWIND( numnam_ice_cfg )              ! Namelist namiceini in configuration namelist : Ice initial state 
    550       READ  ( numnam_ice_cfg, namiceini, IOSTAT = ios, ERR = 902 ) 
    551 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in configuration namelist', lwp ) 
    552       IF(lwm) WRITE ( numoni, namiceini ) 
     545      REWIND( numnam_ice_ref )              ! Namelist namice_ini in reference namelist : Ice initial state 
     546      READ  ( numnam_ice_ref, namice_ini, IOSTAT = ios, ERR = 901) 
     547901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_ini in reference namelist', lwp ) 
     548 
     549      REWIND( numnam_ice_cfg )              ! Namelist namice_ini in configuration namelist : Ice initial state 
     550      READ  ( numnam_ice_cfg, namice_ini, IOSTAT = ios, ERR = 902 ) 
     551902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_ini in configuration namelist', lwp ) 
     552      IF(lwm) WRITE ( numoni, namice_ini ) 
    553553 
    554554      slf_i(jp_hti) = sn_hti  ;  slf_i(jp_hts) = sn_hts 
     
    563563         WRITE(numout,*) 'ice_ist_init : ice parameters inititialisation ' 
    564564         WRITE(numout,*) '~~~~~~~~~~~~' 
    565          WRITE(numout,*) '   Namelist namiceini' 
    566          WRITE(numout,*) '      initialization with ice (T) or not (F)       ln_limini     = ', ln_limini 
    567          WRITE(numout,*) '      ice initialization from a netcdf file      ln_limini_file  = ', ln_limini_file 
     565         WRITE(numout,*) '   Namelist namice_ini' 
     566         WRITE(numout,*) '      initialization with ice (T) or not (F)       ln_iceini     = ', ln_iceini 
     567         WRITE(numout,*) '      ice initialization from a netcdf file      ln_iceini_file  = ', ln_iceini_file 
    568568         WRITE(numout,*) '      threshold water temp. for initial sea-ice    rn_thres_sst  = ', rn_thres_sst 
    569569         WRITE(numout,*) '      initial snow thickness in the north          rn_hts_ini_n  = ', rn_hts_ini_n 
     
    579579      ENDIF 
    580580 
    581       IF( ln_limini_file ) THEN                      ! Ice initialization using input file 
     581      IF( ln_iceini_file ) THEN                      ! Ice initialization using input file 
    582582         ! 
    583583         ! set si structure 
Note: See TracChangeset for help on using the changeset viewer.