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

Changeset 15809


Ignore:
Timestamp:
2022-05-03T17:19:59+02:00 (2 months ago)
Author:
jpalmier
Message:

fix 1

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/OCE/oce.F90

    r15808 r15809  
    7272   !! even if MEDUSA is not active, to allow compilation, in which case they will not be allocated.  
    7373   !! --------------------- 
    74    REAL(wp), PUBLIC, ALLOCATABLE, SAVE :: CO2Flux_out_cpl(:,:)  ! Output coupling CO2 flux   
    75    REAL(wp), PUBLIC, ALLOCATABLE, SAVE :: DMS_out_cpl(:,:)      ! Output coupling DMS   
    76    REAL(wp), PUBLIC, ALLOCATABLE, SAVE :: chloro_out_cpl(:,:)   ! Output coupling chlorophyll  
     74   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: CO2Flux_out_cpl  ! Output coupling CO2 flux   
     75   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: DMS_out_cpl      ! Output coupling DMS   
     76   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: chloro_out_cpl   ! Output coupling chlorophyll  
    7777                                                                ! (expected in Kg/M3)   
    7878 
    79    REAL(wp), PUBLIC, ALLOCATABLE, SAVE :: PCO2a_in_cpl(:,:)     ! Input coupling CO2 partial pressure  
    80    REAL(wp), PUBLIC, ALLOCATABLE, SAVE :: Dust_in_cpl(:,:)      ! Input coupling dust  
     79   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: PCO2a_in_cpl     ! Input coupling CO2 partial pressure  
     80   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: Dust_in_cpl      ! Input coupling dust  
    8181 
    8282   !!---------------------------------------------------------------------- 
     
    125125#endif 
    126126         ! 
    127 #if defined key_oasis3 .AND. key_top 
     127#if defined key_oasis3 .AND. defined key_top 
    128128         ! We only actually need these arrays to be allocated if coupling and MEDUSA  
    129129         ! are enabled 
Note: See TracChangeset for help on using the changeset viewer.