- Timestamp:
- 2019-08-08T16:02:49+02:00 (5 years ago)
- File:
-
- 1 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 !
Note: See TracChangeset
for help on using the changeset viewer.