- Timestamp:
- 2021-06-16T16:27:51+02:00 (3 years ago)
- Location:
- NEMO/trunk/src/OCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/step.F90
r14834 r15005 187 187 ! LATERAL PHYSICS 188 188 ! 189 IF( l_ldfslp ) THEN ! slope of lateral mixing 190 CALL eos( ts(:,:,:,:,Nbb), rhd, gdept_0(:,:,:) ) ! before in situ density 189 IF( ln_zps .OR. l_ldfslp ) CALL eos( ts(:,:,:,:,Nbb), rhd, gdept_0(:,:,:) ) ! before in situ density 191 190 192 191 IF( ln_zps .AND. .NOT. ln_isfcav) & … … 197 196 & CALL zps_hde_isf( kstp, Nnn, jpts, ts(:,:,:,:,Nbb), gtsu, gtsv, gtui, gtvi, & ! Partial steps for top cell (ISF) 198 197 & rhd, gru , grv , grui, grvi ) ! of t, s, rd at the first ocean level 198 199 IF( l_ldfslp ) THEN ! slope of lateral mixing 199 200 IF( ln_traldf_triad ) THEN 200 201 CALL ldf_slp_triad( kstp, Nbb, Nnn ) ! before slope for triad operator -
NEMO/trunk/src/OCE/stpmlf.F90
r14834 r15005 190 190 ! LATERAL PHYSICS 191 191 ! 192 IF( l_ldfslp ) THEN ! slope of lateral mixing 193 CALL eos( ts(:,:,:,:,Nbb), rhd, gdept_0(:,:,:) ) ! before in situ density 192 IF( ln_zps .OR. l_ldfslp ) CALL eos( ts(:,:,:,:,Nbb), rhd, gdept_0(:,:,:) ) ! before in situ density 194 193 195 194 IF( ln_zps .AND. .NOT. ln_isfcav) & … … 200 199 & CALL zps_hde_isf( kstp, Nnn, jpts, ts(:,:,:,:,Nbb), gtsu, gtsv, gtui, gtvi, & ! Partial steps for top cell (ISF) 201 200 & rhd, gru , grv , grui, grvi ) ! of t, s, rd at the first ocean level 201 202 IF( l_ldfslp ) THEN ! slope of lateral mixing 202 203 IF( ln_traldf_triad ) THEN 203 204 CALL ldf_slp_triad( kstp, Nbb, Nnn ) ! before slope for triad operator
Note: See TracChangeset
for help on using the changeset viewer.