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 9053 – NEMO

Changeset 9053


Ignore:
Timestamp:
2017-12-14T15:58:09+01:00 (7 years ago)
Author:
frrh
Message:

Protect instances of chloro_out_cpl from being referenced by
non-coupled models.

Location:
branches/NERC/dev_r5518_GO6_ScalingCoupledChl/NEMOGCM/NEMO/TOP_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_ScalingCoupledChl/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.F90

    r9032 r9053  
    284284            CALL iom_put( "CHL_MLD"  , fchl_ml ) 
    285285         ENDIF 
    286          IF ( med_diag%CHL_CPL%dgsave ) THEN 
    287             CALL iom_put( "CHL_CPL"  , chloro_out_cpl ) 
     286         IF (lk_oasis) THEN 
     287            IF ( med_diag%CHL_CPL%dgsave ) THEN 
     288               CALL iom_put( "CHL_CPL"  , chloro_out_cpl ) 
     289            ENDIF 
    288290         ENDIF 
    289291         IF ( med_diag%PN_JLIM%dgsave ) THEN 
  • branches/NERC/dev_r5518_GO6_ScalingCoupledChl/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r9032 r9053  
    301301      call trc_rst_dia_stat(zn_dms_srf(:,:), 'DMS surf') 
    302302      call trc_rst_dia_stat(zn_co2_flx(:,:), 'CO2 flux') 
    303       call trc_rst_dia_stat(chloro_out_cpl(:,:), 'CHL  cpl') 
     303      IF (lk_oasis) THEN 
     304         call trc_rst_dia_stat(chloro_out_cpl(:,:), 'CHL  cpl') 
     305      END IF 
    304306      !!   
    305307      !! JPALM 14-06-2016 -- add Carbonate chenistry variables through the restart 
Note: See TracChangeset for help on using the changeset viewer.