Changeset 15086 for NEMO/trunk/src/OCE/ISF
- Timestamp:
- 2021-07-06T11:16:55+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ISF/isfcav.F90
r15085 r15086 23 23 ! 24 24 USE oce , ONLY: ts, uu, vv, rn2 ! ocean dynamics and tracers 25 USE dom_oce ! ocean space and time domain 25 26 USE par_oce , ONLY: jpi,jpj ! ocean space and time domain 26 27 USE phycst , ONLY: grav,rho0,rho0_rcp,r1_rho0_rcp ! physical constants … … 41 42 !! * Substitutions 42 43 # include "do_loop_substitute.h90" 44 # include "domzgr_substitute.h90" 43 45 !!---------------------------------------------------------------------- 44 46 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 109 111 zRc(ji,jj) = MAX(rn2(ji,jj,ikt+1), 1.e-20_wp) / MAX( zdku*zdku + zdkv*zdkv, 1.e-20_wp ) 110 112 END_2D 111 CALL lbc_lnk( 'isf cav', zRc, 'T', 1._wp )113 CALL lbc_lnk( 'isfmlt', zRc, 'T', 1._wp ) 112 114 ENDIF 113 115 !
Note: See TracChangeset
for help on using the changeset viewer.