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 8012 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90 – NEMO

Ignore:
Timestamp:
2017-05-10T09:47:35+02:00 (7 years ago)
Author:
marc
Message:

Pulled further code from trcbio_medusa.F90 into other files

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90

    r7996 r8012  
    8585   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fslown, fslowc 
    8686   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fslownflux, fslowcflux 
     87   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fregen,fregensi 
    8788   REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: fregenfast,fregenfastsi 
    8889# if defined key_roam 
     
    309310               fdpn2(jpi,jpj),fdpd2(jpi,jpj),fdpds2(jpi,jpj),         & 
    310311               fdzmi2(jpi,jpj),fdzme2(jpi,jpj),                       & 
    311                fslown(jpi,jpj), fslowc(jpi,jpj),                      & 
     312               fslown(jpi,jpj),fslowc(jpi,jpj),                       & 
    312313               fslownflux(jpi,jpj),fslowcflux(jpi,jpj),               & 
     314               fregen(jpi,jpj),fregensi(jpi,jpj),                     & 
    313315               fregenfast(jpi,jpj),fregenfastsi(jpi,jpj),             & 
    314316# if defined key_roam 
Note: See TracChangeset for help on using the changeset viewer.