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 7580 for branches/2016/dev_merge_2016/NEMOGCM/CONFIG/WAD_TEST_CASES/MY_SRC/usrdef_istate.F90 – NEMO

Ignore:
Timestamp:
2017-01-19T13:06:16+01:00 (7 years ago)
Author:
acc
Message:

Branch 2016/dev_merge_2016. Tidy wet_dry.F90 and remove redundant wad_istate routine (now done in WAD_TEST_CASES/MY_SRC/usrdef_istate.F90)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_merge_2016/NEMOGCM/CONFIG/WAD_TEST_CASES/MY_SRC/usrdef_istate.F90

    r7527 r7580  
    8383            ! 
    8484            IF(lwp) WRITE(numout,*) 
    85             IF(lwp) WRITE(numout,*) 'istate_wad : Closed box with EW linear bottom slope' 
     85            IF(lwp) WRITE(numout,*) 'usr_def_istate : WAD Closed box with EW linear bottom slope' 
    8686            IF(lwp) WRITE(numout,*) '~~~~~~~~~~' 
    8787            ! 
    … …  
    9494            ! 
    9595            IF(lwp) WRITE(numout,*) 
    96             IF(lwp) WRITE(numout,*) 'istate_wad : Parobolic EW channel, mid-range initial ssh slope' 
     96            IF(lwp) WRITE(numout,*) 'usr_def_istate : WAD Parobolic EW channel, mid-range initial ssh slope' 
    9797            IF(lwp) WRITE(numout,*) '~~~~~~~~~~' 
    9898            ! 
    … …  
    105105            ! 
    106106            IF(lwp) WRITE(numout,*) 
    107             IF(lwp) WRITE(numout,*) 'istate_wad : Parobolic EW channel, extreme initial ssh slope'  
     107            IF(lwp) WRITE(numout,*) 'usr_def_istate : WAD Parobolic EW channel, extreme initial ssh slope'  
    108108            IF(lwp) WRITE(numout,*) '~~~~~~~~~~' 
    109109            ! 
    … …  
    118118            ! 
    119119            IF(lwp) WRITE(numout,*) 
    120             IF(lwp) WRITE(numout,*) 'istate_wad : Parobolic bowl, mid-range initial ssh slope'  
     120            IF(lwp) WRITE(numout,*) 'usr_def_istate : WAD Parobolic bowl, mid-range initial ssh slope'  
    121121            IF(lwp) WRITE(numout,*) '~~~~~~~~~~' 
    122122            ! 
    … …  
    135135            ! 
    136136            IF(lwp) WRITE(numout,*) 
    137             IF(lwp) WRITE(numout,*) 'istate_wad : Double slope with shelf' 
     137            IF(lwp) WRITE(numout,*) 'usr_def_istate : WAD Double slope with shelf' 
    138138            IF(lwp) WRITE(numout,*) '~~~~~~~~~~' 
    139139            ! 
    … …  
    148148            ! 
    149149            IF(lwp) WRITE(numout,*) 
    150             IF(lwp) WRITE(numout,*) 'istate_wad : Parobolic EW channel with gaussian ridge'  
     150            IF(lwp) WRITE(numout,*) 'usr_def_istate : WAD Parobolic EW channel with gaussian ridge'  
    151151            IF(lwp) WRITE(numout,*) '~~~~~~~~~~' 
    152152            ! 
Note: See TracChangeset for help on using the changeset viewer.