Changeset 6810 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/sms_medusa.F90
- Timestamp:
- 2016-07-20T14:54:06+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/sms_medusa.F90
r6715 r6810 260 260 !! 261 261 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: dust !: dust parameter 1 262 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: zirondep !! Fe deposition 262 263 263 264 !!---------------------------------------------------------------------- … … 488 489 !* 2D fields of miscellaneous parameters 489 490 ALLOCATE( ocal_ccd(jpi,jpj) , dust(jpi,jpj) , & 491 & zirondep(jpi,jpj) , & 490 492 & riv_n(jpi,jpj) , & 491 493 & riv_si(jpi,jpj) , riv_c(jpi,jpj) , &
Note: See TracChangeset
for help on using the changeset viewer.