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 12062 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/tests/ISOMIP+/MY_SRC/isfstp.F90 – NEMO

Ignore:
Timestamp:
2019-12-05T10:57:46+01:00 (4 years ago)
Author:
mathiot
Message:

changes required by N.J. review

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-02_ISF_nemo/tests/ISOMIP+/MY_SRC/isfstp.F90

    r11987 r12062  
    220220         END IF 
    221221 
    222          IF (ln_isfcav) WRITE(numout,*) '      Ice shelf load method                   cn_isfload        = ', TRIM(cn_isfload) 
     222         IF (ln_isfcav) THEN 
     223            WRITE(numout,*) '      Ice shelf load method                   cn_isfload        = ', TRIM(cn_isfload) 
     224            WRITE(numout,*) '         Temperature used to compute the ice shelf load            = ', rn_isfload_T 
     225            WRITE(numout,*) '         Salinity    used to compute the ice shelf load            = ', rn_isfload_S 
     226         END IF 
    223227         WRITE(numout,*) '' 
    224228         FLUSH(numout) 
     
    276280      INTEGER               :: ios                  ! Local integer output status for namelist read 
    277281      !!---------------------------------------------------------------------- 
    278       NAMELIST/namisf/ ln_isf       ,                                                                               &  
    279          &             ln_isfcav_mlt, cn_isfcav_mlt, cn_gammablk, rn_gammat0, rn_gammas0, rn_htbl, sn_isfcav_fwf,   & 
    280          &             ln_isfpar_mlt, cn_isfpar_mlt, sn_isfpar_fwf, sn_isfpar_zmin, sn_isfpar_zmax, sn_isfpar_Leff, & 
    281          &             ln_isfcpl    , nn_drown, ln_isfcpl_cons, ln_isfdebug, rn_vtide,                              & 
    282          &             cn_isfload   , cn_isfdir 
     282      NAMELIST/namisf/ ln_isf        ,                                                           &  
     283         &             cn_gammablk   , rn_gammat0    , rn_gammas0    , rn_htbl, sn_isfcav_fwf,   & 
     284         &             ln_isfcav_mlt , cn_isfcav_mlt , sn_isfcav_fwf ,                           & 
     285         &             ln_isfpar_mlt , cn_isfpar_mlt , sn_isfpar_fwf ,                           & 
     286         &             sn_isfpar_zmin, sn_isfpar_zmax, sn_isfpar_Leff,                           & 
     287         &             ln_isfcpl     , nn_drown      , ln_isfcpl_cons, ln_isfdebug, rn_vtide,    & 
     288         &             cn_isfload    , rn_isfload_T  , rn_isfload_S  , cn_isfdir 
    283289      !!---------------------------------------------------------------------- 
    284290      ! 
Note: See TracChangeset for help on using the changeset viewer.