Ignore:
Timestamp:
2017-09-04T18:50:10+02:00 (3 years ago)
Author:
dford
Message:

Merge in changes from dev_r5518_GO6_package_asm_surf_bgc, and adapt to the updated MEDUSA structure.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_asm_surf_bgc_v2/NEMOGCM/NEMO/TOP_SRC/MEDUSA/sms_medusa.F90

    r8132 r8495  
    205205   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   :: f2_ccd_arg  !: 2D aragonite CCD depth 
    206206!! 
     207#if defined key_foam_medusa 
     208!! 2D fields of pCO2 and fCO2 for observation operator 
     209   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   :: f2_pco2w    !: 2D pCO2 
     210   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   :: f2_fco2w    !: 2D fCO2 
     211!! 
     212#endif 
    207213!! 2D fields of organic and inorganic material sedimented on the seafloor 
    208214   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   :: zb_sed_n    !: 2D organic nitrogen   (before) 
     
    384390      & 926.4960, 935.7040 / 
    385391# endif 
     392# if defined key_foam_medusa 
     393   REAL(wp) ::   xobs_xco2a   !: Observed atmospheric xCO2, read in 
     394# endif 
    386395#endif 
    387396 
     
    434443   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:)   :: cmask       !: ??? 
    435444 
     445#if defined key_foam_medusa 
     446!!---------------------------------------------------------------------- 
     447!! Parameters required for ocean colour assimilation 
     448!!---------------------------------------------------------------------- 
     449!! 
     450   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: pgrow_avg  !: Mixed layer average phytoplankton growth 
     451   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: ploss_avg  !: Mixed layer average phytoplankton loss 
     452   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: phyt_avg   !: Mixed layer average phytoplankton 
     453   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: mld_max    !: Maximum mixed layer depth 
     454!! 
     455#endif 
     456 
    436457   !!---------------------------------------------------------------------- 
    437458   !! NEMO/TOP 3.3 , NEMO Consortium (2010) 
     
    446467      !!---------------------------------------------------------------------- 
    447468      USE lib_mpp , ONLY: ctl_warn 
    448       INTEGER ::   ierr(8)        ! Local variables 
     469      INTEGER ::   ierr(9)        ! Local variables 
    449470      !!---------------------------------------------------------------------- 
    450471      ierr(:) = 0 
     
    456477      !* 2D and 3D fields of carbonate system parameters 
    457478      ALLOCATE( f2_ccd_cal(jpi,jpj)  , f2_ccd_arg(jpi,jpj)  ,       & 
     479#  if defined key_foam_medusa 
     480                f2_pco2w(jpi,jpj)    , f2_fco2w(jpi,jpj)    ,       & 
     481#  endif 
    458482         &      f3_pH(jpi,jpj,jpk)   , f3_h2co3(jpi,jpj,jpk),       & 
    459483         &      f3_hco3(jpi,jpj,jpk) , f3_co3(jpi,jpj,jpk)  ,       & 
     
    504528         &      ffln(jpi,jpj,jpk)    , fflf(jpi,jpj,jpk)    ,       & 
    505529         &      ffls(jpi,jpj,jpk)    , cmask(jpi,jpj)       ,    STAT=ierr(8) )  
     530# if defined key_foam_medusa 
     531      ALLOCATE( pgrow_avg(jpi,jpj)   , ploss_avg(jpi,jpj)   ,       & 
     532         &      phyt_avg(jpi,jpj)    , mld_max(jpi,jpj)     ,    STAT=ierr(9) ) 
     533# endif 
    506534#endif 
    507535      ! 
Note: See TracChangeset for help on using the changeset viewer.