New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8531 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerhg.F90 – NEMO

Ignore:
Timestamp:
2017-09-15T20:07:33+02:00 (7 years ago)
Author:
clem
Message:

changes in style - part6 - more clarity (still not finished)

File:
1 edited

Legend:

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

    r8518 r8531  
    101101      !!      dynamics 
    102102      !! 
    103       !! ** Method  :  Read the namice_rhg namelist and check the ice-dynamic 
     103      !! ** Method  :  Read the namdyn_rhg namelist and check the ice-dynamic 
    104104      !!       parameter values called at the first timestep (nit000) 
    105105      !! 
    106       !! ** input   :   Namelist namice_rhg 
     106      !! ** input   :   Namelist namdyn_rhg 
    107107      !!------------------------------------------------------------------- 
    108108      INTEGER ::   ios, ioptio   ! Local integer output status for namelist read 
    109109      !! 
    110       NAMELIST/namice_rhg/  ln_rhg_EVP, rn_creepl, rn_ecc , nn_nevp, rn_relast 
     110      NAMELIST/namdyn_rhg/  ln_rhg_EVP, rn_creepl, rn_ecc , nn_nevp, rn_relast 
    111111      !!------------------------------------------------------------------- 
    112112      ! 
    113       REWIND( numnam_ice_ref )         ! Namelist namice_rhg in reference namelist : Ice dynamics 
    114       READ  ( numnam_ice_ref, namice_rhg, IOSTAT = ios, ERR = 901) 
    115 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_rhg in reference namelist', lwp ) 
     113      REWIND( numnam_ice_ref )         ! Namelist namdyn_rhg in reference namelist : Ice dynamics 
     114      READ  ( numnam_ice_ref, namdyn_rhg, IOSTAT = ios, ERR = 901) 
     115901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_rhg in reference namelist', lwp ) 
    116116      ! 
    117       REWIND( numnam_ice_cfg )         ! Namelist namice_rhg in configuration namelist : Ice dynamics 
    118       READ  ( numnam_ice_cfg, namice_rhg, IOSTAT = ios, ERR = 902 ) 
    119 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_rhg in configuration namelist', lwp ) 
    120       IF(lwm) WRITE ( numoni, namice_rhg ) 
     117      REWIND( numnam_ice_cfg )         ! Namelist namdyn_rhg in configuration namelist : Ice dynamics 
     118      READ  ( numnam_ice_cfg, namdyn_rhg, IOSTAT = ios, ERR = 902 ) 
     119902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_rhg in configuration namelist', lwp ) 
     120      IF(lwm) WRITE ( numoni, namdyn_rhg ) 
    121121      ! 
    122122      IF(lwp) THEN                     ! control print 
     
    124124         WRITE(numout,*) 'ice_rhg_init: ice parameters for ice dynamics ' 
    125125         WRITE(numout,*) '~~~~~~~~~~~~' 
    126          WRITE(numout,*) '   Namelist namice_rhg' 
    127          WRITE(numout,*) '      rheology EVP (icerhg_evp)                                   ln_rhg_EVP    = ', ln_rhg_EVP 
    128          WRITE(numout,*) '         creep limit                                              rn_creepl     = ', rn_creepl 
    129          WRITE(numout,*) '         eccentricity of the elliptical yield curve               rn_ecc        = ', rn_ecc 
    130          WRITE(numout,*) '         number of iterations for subcycling                      nn_nevp       = ', nn_nevp 
    131          WRITE(numout,*) '         ratio of elastic timescale over ice time step            rn_relast     = ', rn_relast 
     126         WRITE(numout,*) '   Namelist namdyn_rhg:' 
     127         WRITE(numout,*) '      rheology EVP (icerhg_evp)                            ln_rhg_EVP = ', ln_rhg_EVP 
     128         WRITE(numout,*) '         creep limit                                       rn_creepl  = ', rn_creepl 
     129         WRITE(numout,*) '         eccentricity of the elliptical yield curve        rn_ecc     = ', rn_ecc 
     130         WRITE(numout,*) '         number of iterations for subcycling               nn_nevp    = ', nn_nevp 
     131         WRITE(numout,*) '         ratio of elastic timescale over ice time step     rn_relast  = ', rn_relast 
    132132      ENDIF 
    133133      ! 
Note: See TracChangeset for help on using the changeset viewer.