Changeset 11423 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DOM
- Timestamp:
- 2019-08-08T16:02:49+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DOM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DOM/domvvl.F90
r10425 r11423 19 19 !!---------------------------------------------------------------------- 20 20 USE oce ! ocean dynamics and tracers 21 USE isfcpl 21 22 USE phycst ! physical constant 22 23 USE dom_oce ! ocean space and time domain … … 813 814 id4 = iom_varid( numror, 'tilde_e3t_n', ldstop = .FALSE. ) 814 815 id5 = iom_varid( numror, 'hdiv_lf', ldstop = .FALSE. ) 816 ! 817 ! coupling with an ice sheet model (grounding/calving line migration) 818 IF ( ln_iscpl ) THEN 819 ! 820 ! extrapolate ssh over new water column if needed 821 CALL isfcpl_ssh() 822 ! 823 ! everything need to compute over new water column 824 id1 = 0 ; id2 = 0 ; id3 = 0 ; id4 = 0 ; id5 = 0 825 ! 826 END IF 815 827 ! ! --------- ! 816 828 ! ! all cases ! -
NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DOM/istate.F90
r10499 r11423 28 28 USE dtauvd ! data: U & V current (dta_uvd routine) 29 29 USE domvvl ! varying vertical mesh 30 USE iscplrst ! ice sheet coupling31 30 USE wet_dry ! wetting and drying (needed for wad_istate) 32 31 USE usrdef_istate ! User defined initial state … … 86 85 ! ! ------------------- 87 86 CALL rst_read ! Read the restart file 88 IF (ln_iscpl) CALL iscpl_stp ! extrapolate restart to wet and dry89 87 CALL day_init ! model calendar (using both namelist and restart infos) 90 88 !
Note: See TracChangeset
for help on using the changeset viewer.