Changeset 10963 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/PISCES/P4Z/p4zsms.F90
- Timestamp:
- 2019-05-10T16:15:43+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/PISCES/P4Z/p4zsms.F90
r10425 r10963 46 46 CONTAINS 47 47 48 SUBROUTINE p4z_sms( kt )48 SUBROUTINE p4z_sms( kt, Kmm ) 49 49 !!--------------------------------------------------------------------- 50 50 !! *** ROUTINE p4z_sms *** … … 59 59 ! 60 60 INTEGER, INTENT( in ) :: kt ! ocean time-step index 61 INTEGER, INTENT( in ) :: Kmm ! time level index 61 62 !! 62 63 INTEGER :: ji, jj, jk, jnt, jn, jl … … 155 156 IF( ln_sediment ) THEN 156 157 ! 157 CALL sed_model( kt ) ! Main program of Sediment model158 CALL sed_model( kt, Kmm ) ! Main program of Sediment model 158 159 ! 159 160 IF( ln_top_euler ) THEN
Note: See TracChangeset
for help on using the changeset viewer.