Changeset 2027 for branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/LDF
- Timestamp:
- 2010-07-29T13:33:05+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/LDF/ldfslp.F90
r1515 r2027 31 31 PRIVATE 32 32 33 PUBLIC ldf_slp ! routine called by step.F90 33 PUBLIC ldf_slp ! routine called by step.F90 34 PUBLIC ldf_slp_init ! routine called by opa.F90 34 35 35 36 LOGICAL , PUBLIC, PARAMETER :: lk_ldfslp = .TRUE. !: slopes flag … … 97 98 !!---------------------------------------------------------------------- 98 99 99 IF( kt == nit000 ) CALL ldf_slp_init ! initialization (first time-step only)100 101 100 zeps = 1.e-20 ! Local constant initialization 102 101 zmg = -1.0 / grav
Note: See TracChangeset
for help on using the changeset viewer.