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 11822 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/PISCES/SED/sedini.F90 – NEMO

Ignore:
Timestamp:
2019-10-29T11:41:36+01:00 (4 years ago)
Author:
acc
Message:

Branch 2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps. Sette tested updates to branch to align with trunk changes between 10721 and 11740. Sette tests are passing but results differ from branch before these changes (except for GYRE_PISCES and VORTEX) and branch results already differed from trunk because of algorithmic fixes. Will need more checks to confirm correctness.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/PISCES/SED/sedini.F90

    r11504 r11822  
    459459      REWIND( numnamsed_ref )              ! Namelist nam_run in reference namelist : Pisces variables 
    460460      READ  ( numnamsed_ref, nam_run, IOSTAT = ios, ERR = 901) 
    461 901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_run in reference namelist', lwp ) 
     461901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_run in reference namelist' ) 
    462462 
    463463      REWIND( numnamsed_cfg )              ! Namelist nam_run in reference namelist : Pisces variables 
    464464      READ  ( numnamsed_cfg, nam_run, IOSTAT = ios, ERR = 902) 
    465 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_run in configuration namelist', lwp ) 
     465902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_run in configuration namelist' ) 
    466466 
    467467      IF (lwp) THEN 
    … …  
    475475      REWIND( numnamsed_ref )              ! Namelist nam_geom in reference namelist : Pisces variables 
    476476      READ  ( numnamsed_ref, nam_geom, IOSTAT = ios, ERR = 903) 
    477 903   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_geom in reference namelist', lwp ) 
     477903   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_geom in reference namelist' ) 
    478478 
    479479      REWIND( numnamsed_cfg )              ! Namelist nam_geom in reference namelist : Pisces variables 
    480480      READ  ( numnamsed_cfg, nam_geom, IOSTAT = ios, ERR = 904) 
    481 904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_geom in configuration namelist', lwp ) 
     481904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_geom in configuration namelist' ) 
    482482 
    483483      IF (lwp) THEN  
    … …  
    498498      REWIND( numnamsed_ref )              ! Namelist nam_trased in reference namelist : Pisces variables 
    499499      READ  ( numnamsed_ref, nam_trased, IOSTAT = ios, ERR = 905) 
    500 905   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_trased in reference namelist', lwp ) 
     500905   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_trased in reference namelist' ) 
    501501 
    502502      REWIND( numnamsed_cfg )              ! Namelist nam_trased in reference namelist : Pisces variables 
    503503      READ  ( numnamsed_cfg, nam_trased, IOSTAT = ios, ERR = 906) 
    504 906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_trased in configuration namelist', lwp ) 
     504906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_trased in configuration namelist' ) 
    505505 
    506506      DO jn = 1, jpsol 
    … …  
    531531      REWIND( numnamsed_ref )              ! Namelist nam_diased in reference namelist : Pisces variables 
    532532      READ  ( numnamsed_ref, nam_diased, IOSTAT = ios, ERR = 907) 
    533 907   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diased in reference namelist', lwp ) 
     533907   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diased in reference namelist' ) 
    534534 
    535535      REWIND( numnamsed_cfg )              ! Namelist nam_diased in reference namelist : Pisces variables 
    536536      READ  ( numnamsed_cfg, nam_diased, IOSTAT = ios, ERR = 908) 
    537 908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diased in configuration namelist', lwp ) 
     537908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diased in configuration namelist' ) 
    538538       
    539539      DO jn = 1, jpdia3dsed 
    … …  
    573573      REWIND( numnamsed_ref )              ! Namelist nam_inorg in reference namelist : Pisces variables 
    574574      READ  ( numnamsed_ref, nam_inorg, IOSTAT = ios, ERR = 909) 
    575 909   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_inorg in reference namelist', lwp ) 
     575909   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_inorg in reference namelist' ) 
    576576 
    577577      REWIND( numnamsed_cfg )              ! Namelist nam_inorg in reference namelist : Pisces variables 
    578578      READ  ( numnamsed_cfg, nam_inorg, IOSTAT = ios, ERR = 910) 
    579 910   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_inorg in configuration namelist', lwp ) 
     579910   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_inorg in configuration namelist' ) 
    580580 
    581581      IF (lwp) THEN 
    … …  
    599599      REWIND( numnamsed_ref )              ! Namelist nam_poc in reference namelist : Pisces variables 
    600600      READ  ( numnamsed_ref, nam_poc, IOSTAT = ios, ERR = 911) 
    601 911   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_poc in reference namelist', lwp ) 
     601911   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_poc in reference namelist' ) 
    602602 
    603603      REWIND( numnamsed_cfg )              ! Namelist nam_poc in reference namelist : Pisces variables 
    604604      READ  ( numnamsed_cfg, nam_poc, IOSTAT = ios, ERR = 912) 
    605 912   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_poc in configuration namelist', lwp ) 
     605912   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_poc in configuration namelist' ) 
    606606 
    607607      IF (lwp) THEN 
    … …  
    651651      REWIND( numnamsed_ref )              ! Namelist nam_btb in reference namelist : Pisces variables 
    652652      READ  ( numnamsed_ref, nam_btb, IOSTAT = ios, ERR = 913) 
    653 913   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_btb in reference namelist', lwp ) 
     653913   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_btb in reference namelist' ) 
    654654 
    655655      REWIND( numnamsed_cfg )              ! Namelist nam_btb in reference namelist : Pisces variables 
    656656      READ  ( numnamsed_cfg, nam_btb, IOSTAT = ios, ERR = 914) 
    657 914   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_btb in configuration namelist', lwp ) 
     657914   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_btb in configuration namelist' ) 
    658658 
    659659      IF (lwp) THEN 
    … …  
    672672      REWIND( numnamsed_ref )              ! Namelist nam_rst in reference namelist : Pisces variables 
    673673      READ  ( numnamsed_ref, nam_rst, IOSTAT = ios, ERR = 915) 
    674 915   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_rst in reference namelist', lwp ) 
     674915   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_rst in reference namelist' ) 
    675675 
    676676      REWIND( numnamsed_cfg )              ! Namelist nam_rst in reference namelist : Pisces variables 
    677677      READ  ( numnamsed_cfg, nam_rst, IOSTAT = ios, ERR = 916) 
    678 916   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_rst in configuration namelist', lwp ) 
     678916   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_rst in configuration namelist' ) 
    679679 
    680680      IF (lwp) THEN 
Note: See TracChangeset for help on using the changeset viewer.