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

Changeset 6792 for branches/NERC


Ignore:
Timestamp:
2016-07-06T13:39:13+02:00 (8 years ago)
Author:
jpalmier
Message:

update for coupling

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/OPA_SRC/oce.F90

    r6744 r6792  
    7272   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   fraqsr_1lev        !: fraction of solar net radiation absorbed in the first ocean level [-] 
    7373 
    74 !! Arrays used in coupling when MEDUSA is present. These arrays need to be declared 
    75 !! even if MEDUSA is not active, to allow compilation, in which case they will not be allocated. 
    76 !! --------------------- 
    77 REAL(wp), PUBLIC, ALLOCATABLE, SAVE :: CO2Flux_out_cpl(:,:)   ! Output coupling CO2 flux  
    78 REAL(wp), PUBLIC, ALLOCATABLE, SAVE :: DMS_out_cpl(:,:)       ! Output coupling DMS  
    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 
    81  
    82 #if defined key_medusa 
    83 LOGICAL, PUBLIC, PARAMETER :: ln_medusa=.TRUE.                ! Medusa switched on or off. 
    84 #else 
    85 LOGICAL, PUBLIC, PARAMETER :: ln_medusa=.FALSE.               ! Medusa switched on or off. 
    86 #endif 
    8774   !!---------------------------------------------------------------------- 
    8875   !! NEMO/OPA 4.0 , NEMO Consortium (2011) 
     
    132119      ALLOCATE( fraqsr_1lev(jpi,jpj) , STAT=ierr(4) ) 
    133120         ! 
    134 #if defined key_oasis3 
    135       IF (ln_medusa) THEN 
    136          ! We only actually need these arrays to be allocated if coupling and MEDUSA 
    137          ! are enabled 
    138          ALLOCATE( CO2Flux_out_cpl(jpi,jpj),DMS_out_cpl(jpi,jpj),               & 
    139                    PCO2a_in_cpl(jpi,jpj), Dust_in_cpl(jpi,jpj),    STAT=ierr(5) ) 
    140  
    141          ! RSRH Temporarily initialise output coupling fields while we await clarification 
    142          ! of exactly how these will be initialised at model startup! 
    143          DMS_out_cpl(:,:) = 0.0 
    144          CO2Flux_out_cpl(:,:) = 0.0 
    145       ENDIF 
    146 #endif 
    147121      oce_alloc = MAXVAL( ierr ) 
    148122      IF( oce_alloc /= 0 )   CALL ctl_warn('oce_alloc: failed to allocate arrays') 
Note: See TracChangeset for help on using the changeset viewer.