- Timestamp:
- 2019-12-07T12:44:31+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_TOP-01_ENHANCE-11_CEthe/src/TOP/TRP/trctrp.F90
r10068 r12110 23 23 USE trcrad ! positivity (trc_rad routine) 24 24 USE trcsbc ! surface boundary condition (trc_sbc routine) 25 USE trcbc ! Tracers boundary condtions ( trc_bc routine) 25 26 USE zpshde ! partial step: hor. derivative (zps_hde routine) 26 27 USE bdy_oce , ONLY: ln_bdy … … 61 62 ! 62 63 CALL trc_sbc ( kt ) ! surface boundary condition 64 IF( ln_trcbc .AND. lltrcbc .AND. kt /= nit000 ) & 65 CALL trc_bc ( kt ) ! tracers: surface and lateral Boundary Conditions 63 66 IF( ln_trabbl ) CALL trc_bbl ( kt ) ! advective (and/or diffusive) bottom boundary layer scheme 64 67 IF( ln_trcdmp ) CALL trc_dmp ( kt ) ! internal damping trends
Note: See TracChangeset
for help on using the changeset viewer.