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 6798 for branches/NERC – NEMO

Changeset 6798 for branches/NERC


Ignore:
Timestamp:
2016-07-08T16:18:18+02:00 (8 years ago)
Author:
jpalmier
Message:

secure init coupling variable

File:
1 edited

Legend:

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

    r6715 r6798  
    2727   !! AXY (04/11/13): add this in for initialisation stuff 
    2828   USE trcsed_medusa 
     29   USE sbc_oce, ONLY: lk_oasis 
     30   USE oce,     ONLY: CO2Flux_out_cpl, DMS_out_cpl  !! Coupling variable 
     31 
    2932 
    3033   IMPLICIT NONE 
     
    272275      IF(lwp) WRITE(numout,*) ' trc_ini_medusa: DMS and CO2 flux (UKESM) initialised to zero' 
    273276      IF(lwp) CALL flush(numout) 
     277      IF (lk_oasis) THEN 
     278         CO2Flux_out_cpl(:,:) =  zn_co2_flx(:,:)   !! Coupling variable 
     279         DMS_out_cpl(:,:)     =  zn_dms_srf(:,:)   !! Coupling variable 
     280      END IF 
    274281      !! 
    275282      !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.