Ignore:
Timestamp:
2019-12-05T18:41:39+01:00 (11 months ago)
Author:
mathiot
Message:

include ENHANCE-02_ISF_nemo in UKMO merge branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/UKMO_MERGE_2019/tests/ISOMIP+/MY_SRC/dtatsd.F90

    r11889 r12077  
    6969      REWIND( numnam_ref )              ! Namelist namtsd in reference namelist :  
    7070      READ  ( numnam_ref, namtsd, IOSTAT = ios, ERR = 901) 
    71 901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namtsd in reference namelist', lwp ) 
     71901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namtsd in reference namelist' ) 
    7272      REWIND( numnam_cfg )              ! Namelist namtsd in configuration namelist : Parameters of the run 
    7373      READ  ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 
    74 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtsd in configuration namelist', lwp ) 
     74902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namtsd in configuration namelist' ) 
    7575      IF(lwm) WRITE ( numond, namtsd ) 
    7676 
Note: See TracChangeset for help on using the changeset viewer.