Ignore:
Timestamp:
2017-09-15T20:07:33+02:00 (3 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/limmp.F90

    r8411 r8531  
    7979      !!      over sea ice 
    8080      !! 
    81       !! ** Method  :  Read the namicemp  namelist and check the melt pond   
     81      !! ** Method  :  Read the nammp  namelist and check the melt pond   
    8282      !!       parameter values called at the first timestep (nit000) 
    8383      !! 
    84       !! ** input   :   Namelist namicemp   
     84      !! ** input   :   Namelist nammp   
    8585      !!------------------------------------------------------------------- 
    8686      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    87       NAMELIST/namicemp/  ln_pnd, ln_pnd_rad, ln_pnd_fw, nn_pnd_scheme, rn_apnd, rn_hpnd 
     87      NAMELIST/nammp/  ln_pnd, ln_pnd_rad, ln_pnd_fw, nn_pnd_scheme, rn_apnd, rn_hpnd 
    8888      !!------------------------------------------------------------------- 
    8989 
    90       REWIND( numnam_ice_ref )              ! Namelist namicemp  in reference namelist : Melt Ponds   
    91       READ  ( numnam_ice_ref, namicemp, IOSTAT = ios, ERR = 901) 
    92 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicemp  in reference namelist', lwp ) 
    93  
    94       REWIND( numnam_ice_cfg )              ! Namelist namicemp  in configuration namelist : Melt Ponds 
    95       READ  ( numnam_ice_cfg, namicemp, IOSTAT = ios, ERR = 902 ) 
    96 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicemp in configuration namelist', lwp ) 
    97       IF(lwm) WRITE ( numoni, namicemp ) 
     90      REWIND( numnam_ice_ref )              ! Namelist nammp  in reference namelist : Melt Ponds   
     91      READ  ( numnam_ice_ref, nammp, IOSTAT = ios, ERR = 901) 
     92901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammp  in reference namelist', lwp ) 
     93 
     94      REWIND( numnam_ice_cfg )              ! Namelist nammp  in configuration namelist : Melt Ponds 
     95      READ  ( numnam_ice_cfg, nammp, IOSTAT = ios, ERR = 902 ) 
     96902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammp in configuration namelist', lwp ) 
     97      IF(lwm) WRITE ( numoni, nammp ) 
    9898       
    9999      IF(lwp) THEN                        ! control print 
Note: See TracChangeset for help on using the changeset viewer.