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 11990 for branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc_3dnitbal/NEMOGCM/NEMO/TOP_SRC/MEDUSA – NEMO

Ignore:
Timestamp:
2019-11-27T16:43:05+01:00 (4 years ago)
Author:
dford
Message:

Get the nitrogen balancing working with 3D chlorophyll increments.

Location:
branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc_3dnitbal/NEMOGCM/NEMO/TOP_SRC/MEDUSA
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc_3dnitbal/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.F90

    r9292 r11990  
    5151                                   mld_max, pgrow_avg,                  & 
    5252                                   ploss_avg, phyt_avg,                 & 
     53                                   ploss_avg_3d, phyt_avg_3d,           & 
     54                                   pgrow_avg_3d,                        & 
    5355# endif 
    5456                                   za_sed_c, za_sed_ca, za_sed_fe,      & 

  • branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc_3dnitbal/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

    r9292 r11990  
    3636      USE par_oce,           ONLY: jpi, jpj, jpk 
    3737# if defined key_foam_medusa 
    38       USE sms_medusa,        ONLY: jdms, pgrow_avg, ploss_avg, phyt_avg, mld_max 
     38      USE sms_medusa,        ONLY: jdms, pgrow_avg, ploss_avg, phyt_avg, mld_max, & 
     39         &                         pgrow_avg_3d, ploss_avg_3d, phyt_avg_3d 
    3940# else 
    4041      USE sms_medusa,        ONLY: jdms 
    … …  
    201202      ploss_avg(:,:) = 0.0 
    202203      phyt_avg(:,:)  = 0.0 
     204      pgrow_avg_3d(:,:,:) = 0.0 
     205      ploss_avg_3d(:,:,:) = 0.0 
     206      phyt_avg_3d(:,:,:)  = 0.0 
    203207      IF( kt == nittrc000 ) THEN 
    204208         mld_max(:,:) = 0.0 

  • branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc_3dnitbal/NEMOGCM/NEMO/TOP_SRC/MEDUSA/plankton.F90

    r9292 r11990  
    5252# if defined key_foam_medusa 
    5353                                   pgrow_avg, ploss_avg, phyt_avg,         & 
     54                                   pgrow_avg_3d, ploss_avg_3d, phyt_avg_3d, & 
    5455# endif 
    5556                                   xkphd, xkphn, xkzme, xkzmi,             & 
    … …  
    242243                                  ((zphn(ji,jj) + zphd(ji,jj)) *       & 
    243244                                   fse3t(ji,jj,jk) * fq0) 
     245               !! 
     246               pgrow_avg_3d(ji,jj,jk) = (fprn(ji,jj) * zphn(ji,jj)) +  & 
     247                                        (fprd(ji,jj) * zphd(ji,jj)) 
     248               ploss_avg_3d(ji,jj,jk) = fgmepd(ji,jj) + fdpd(ji,jj) +  & 
     249                                        fdpd2(ji,jj)                +  & 
     250                                        fgmepn(ji,jj) + fdpn(ji,jj) +  & 
     251                                        fdpn2(ji,jj)  + fgmipn(ji,jj) 
     252               phyt_avg_3d(ji,jj,jk)  = zphn(ji,jj) + zphd(ji,jj) 
    244253            ENDIF 
    245254         ENDDO 

  • branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc_3dnitbal/NEMOGCM/NEMO/TOP_SRC/MEDUSA/sms_medusa.F90

    r9292 r11990  
    458458   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: ploss_avg  !: Mixed layer average phytoplankton loss 
    459459   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: phyt_avg   !: Mixed layer average phytoplankton 
     460   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: pgrow_avg_3d  !: Mixed layer average phytoplankton growth 
     461   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: ploss_avg_3d  !: Mixed layer average phytoplankton loss 
     462   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: phyt_avg_3d   !: Mixed layer average phytoplankton 
    460463   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: mld_max    !: Maximum mixed layer depth 
    461464!! 
    … …  
    537540# if defined key_foam_medusa 
    538541      ALLOCATE( pgrow_avg(jpi,jpj)   , ploss_avg(jpi,jpj)   ,       & 
     542         &      pgrow_avg_3d(jpi,jpj,jpk) , ploss_avg_3d(jpi,jpj,jpk) , & 
     543         &      phyt_avg_3d(jpi,jpj,jpk)  ,                         & 
    539544         &      phyt_avg(jpi,jpj)    , mld_max(jpi,jpj)     ,    STAT=ierr(9) ) 
    540545# endif 

  • branches/UKMO/dev_r5518_GO6_package_asm_3d_bgc_3dnitbal/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r9292 r11990  
    105105      USE sms_medusa,                 ONLY: hist_pco2, xobs_xco2a,          & 
    106106                                            pgrow_avg, ploss_avg,           & 
     107                                            pgrow_avg_3d, ploss_avg_3d,     & 
     108                                            phyt_avg_3d,                    & 
    107109                                            phyt_avg, mld_max 
    108110# else 
Note: See TracChangeset for help on using the changeset viewer.