Changeset 15809

Timestamp:

2022-05-03T17:19:59+02:00 (2 years ago)

Author:

jpalmier

Message:

fix 1

File:

• NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/OCE/oce.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals_GC5/src/OCE/oce.F90

@@ -72 +72 @@
    !! even if MEDUSA is not active, to allow compilation, in which case they will not be allocated. 
    !! ---------------------
-   REAL(wp), PUBLIC, ALLOCATABLE, SAVE :: CO2Flux_out_cpl(:,:)  ! Output coupling CO2 flux  
-   REAL(wp), PUBLIC, ALLOCATABLE, SAVE :: DMS_out_cpl(:,:)      ! Output coupling DMS  
-   REAL(wp), PUBLIC, ALLOCATABLE, SAVE :: chloro_out_cpl(:,:)   ! Output coupling chlorophyll 
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: CO2Flux_out_cpl  ! Output coupling CO2 flux  
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: DMS_out_cpl      ! Output coupling DMS  
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: chloro_out_cpl   ! Output coupling chlorophyll 
                                                                 ! (expected in Kg/M3)  
 
-   REAL(wp), PUBLIC, ALLOCATABLE, SAVE :: PCO2a_in_cpl(:,:)     ! Input coupling CO2 partial pressure 
-   REAL(wp), PUBLIC, ALLOCATABLE, SAVE :: Dust_in_cpl(:,:)      ! Input coupling dust 
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: PCO2a_in_cpl     ! Input coupling CO2 partial pressure 
+   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: Dust_in_cpl      ! Input coupling dust 
 
    !!----------------------------------------------------------------------
@@ -125 +125 @@
 #endif
          !
-#if defined key_oasis3 .AND. key_top
+#if defined key_oasis3 .AND. defined key_top
          ! We only actually need these arrays to be allocated if coupling and MEDUSA 
          ! are enabled