New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6810 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/sms_medusa.F90 – NEMO

Ignore:
Timestamp:
2016-07-20T14:54:06+02:00 (8 years ago)
Author:
jpalmier
Message:

JPALM -- 20-07-2016 -- adapt dust conversion to SI dust-dep units

-- correct idtra negative values

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/sms_medusa.F90

    r6715 r6810  
    260260!! 
    261261   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   dust      !: dust parameter 1 
     262   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   zirondep  !! Fe deposition 
    262263 
    263264!!---------------------------------------------------------------------- 
     
    488489      !* 2D fields of miscellaneous parameters 
    489490      ALLOCATE( ocal_ccd(jpi,jpj)    , dust(jpi,jpj)        ,       & 
     491         &      zirondep(jpi,jpj)                           ,       & 
    490492         &      riv_n(jpi,jpj)                              ,       & 
    491493         &      riv_si(jpi,jpj)      , riv_c(jpi,jpj)       ,       & 
Note: See TracChangeset for help on using the changeset viewer.