Changeset 14140 for NEMO/trunk/src/OCE/DOM
- Timestamp:
- 2020-12-09T16:42:10+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DOM/domvvl.F90
r14125 r14140 50 50 REAL(wp) , ALLOCATABLE, SAVE, DIMENSION(:,:) :: frq_rst_hdv ! retoring period for low freq. divergence 51 51 52 #if defined key_qco 52 #if defined key_qco || defined key_linssh 53 53 !!---------------------------------------------------------------------- 54 !! 'key_qco' EMPTY MODULE Quasi-Eulerian vertical coordonate 54 !! 'key_qco' Quasi-Eulerian vertical coordinate 55 !! OR EMPTY MODULE 56 !! 'key_linssh' Fix in time vertical coordinate 55 57 !!---------------------------------------------------------------------- 56 58 #else … … 812 814 IF( l_1st_euler ) THEN ! euler 813 815 IF(lwp) WRITE(numout,*) ' Euler first time step : e3t(Kbb) = e3t(Kmm)' 814 e3t(:,:,:,K mm) = e3t(:,:,:,Kbb)816 e3t(:,:,:,Kbb) = e3t(:,:,:,Kmm) 815 817 ELSE ! leap frog 816 818 IF(lwp) WRITE(numout,*) ' Kbb scale factor read in the restart file'
Note: See TracChangeset
for help on using the changeset viewer.