Changeset 8777


Ignore:
Timestamp:
2017-11-22T08:58:29+01:00 (3 years ago)
Author:
deazer
Message:

Includes Bug fix for asseling filter and 3d rivers
Includes limiter in surface fluxesin shallow water near WAD points as a temporary measure.

Location:
branches/UKMO/ROMS_WAD_7832/NEMOGCM/CONFIG/CS15mini/MY_SRC
Files:
5 added
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/ROMS_WAD_7832/NEMOGCM/CONFIG/CS15mini/MY_SRC/domwri.F90

    r8403 r8777  
    198198      ENDIF 
    199199      ! 
    200       IF( ln_wd .OR. ln_rwd ) CALL iom_rstput( 0, 0, inum, 'ht_wd'  , ht_wd  , ktype = jp_r8 ) 
     200      IF( ln_wd ) CALL iom_rstput( 0, 0, inum, 'ht_wd'  , ht_wd  , ktype = jp_r8 ) 
    201201      IF( ln_wd .OR. ln_rwd ) CALL iom_rstput( 0, 0, inum, 'ht_0'   , ht_0   , ktype = jp_r8 ) 
    202202 
Note: See TracChangeset for help on using the changeset viewer.