Changeset 12928 for NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/TOP/PISCES/SED/sedinitrc.F90
- Timestamp:
- 2020-05-14T21:46:00+02:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser
- Property svn:externals
-
old new 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 9 # SETTE 10 ^/utils/CI/sette@HEAD sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/TOP/PISCES/SED/sedinitrc.F90
r10225 r12928 33 33 34 34 35 SUBROUTINE sed_initrc 35 SUBROUTINE sed_initrc( Kbb, Kmm ) 36 36 !!---------------------------------------------------------------------- 37 37 !! *** ROUTINE sed_init *** … … 50 50 !! ! 06-07 (C. Ethe) Re-organization 51 51 !!---------------------------------------------------------------------- 52 INTEGER, INTENT(in) :: Kbb, Kmm ! time level indices 52 53 INTEGER :: ji, jj, ikt 53 54 !!---------------------------------------------------------------------- … … 65 66 ! ( only clay or reading restart file ) 66 67 !--------------------------------------- 67 CALL sed_init_data 68 CALL sed_init_data( Kbb, Kmm ) 68 69 69 70 … … 74 75 75 76 76 SUBROUTINE sed_init_data 77 SUBROUTINE sed_init_data( Kbb, Kmm ) 77 78 !!---------------------------------------------------------------------- 78 79 !! *** ROUTINE sed_init_data *** … … 85 86 !! ! 06-07 (C. Ethe) original 86 87 !!---------------------------------------------------------------------- 88 INTEGER, INTENT(in) :: Kbb, Kmm ! time level indices 87 89 88 90 ! local variables … … 128 130 129 131 ! Load initial Pisces Data for bot. wat. Chem and fluxes 130 CALL sed_dta ( nitsed000 )132 CALL sed_dta ( nitsed000, Kbb, Kmm ) 131 133 132 134 ! Initialization of chemical constants
Note: See TracChangeset
for help on using the changeset viewer.