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/bio_medusa_init.F90

    r8442 r8495  
    3434      USE bio_medusa_mod 
    3535      USE par_oce,           ONLY: jpi, jpj, jpk 
     36# if defined key_foam_medusa 
     37      USE sms_medusa,        ONLY: jdms, pgrow_avg, ploss_avg, phyt_avg, mld_max 
     38# else 
    3639      USE sms_medusa,        ONLY: jdms 
     40# endif 
    3741      USE trc,               ONLY: ln_diatrc, med_diag, nittrc000  
    3842      USE in_out_manager,    ONLY: lwp 
     
    164168      fslownflux(:,:) = 0.0  
    165169      fslowcflux(:,:) = 0.0  
     170      !! 
     171# if defined key_foam_medusa 
     172      pgrow_avg(:,:) = 0.0 
     173      ploss_avg(:,:) = 0.0 
     174      phyt_avg(:,:)  = 0.0 
     175      IF( kt == nittrc000 ) THEN 
     176         mld_max(:,:) = 0.0 
     177      ENDIF 
     178# endif 
    166179      !! 
    167180      !! allocate and initiate 2D diag 
Note: See TracChangeset for help on using the changeset viewer.