Changeset 6698 for branches/UKMO/dev_r5518_GO6_package_MEDUSA_temporary/NEMOGCM/NEMO/OPA_SRC/oce.F90
- Timestamp:
- 2016-06-13T17:14:52+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_MEDUSA_temporary/NEMOGCM/NEMO/OPA_SRC/oce.F90
r6486 r6698 71 71 !! Energy budget of the leads (open water embedded in sea ice) 72 72 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: fraqsr_1lev !: fraction of solar net radiation absorbed in the first ocean level [-] 73 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 73 79 80 REAL(wp), PUBLIC, ALLOCATABLE, SAVE :: PCO2a_in_cpl(:,:) ! Input coupling CO2 partial pressure 81 REAL(wp), PUBLIC, ALLOCATABLE, SAVE :: Dust_in_cpl(:,:) ! Input coupling dust 82 83 #if defined key_medusa 84 LOGICAL, PUBLIC, PARAMETER :: ln_medusa=.TRUE. ! Medusa switched on or off. 85 #else 86 LOGICAL, PUBLIC, PARAMETER :: ln_medusa=.FALSE. ! Medusa switched on or off. 87 #endif 74 88 !!---------------------------------------------------------------------- 75 89 !! NEMO/OPA 4.0 , NEMO Consortium (2011) … … 119 133 ALLOCATE( fraqsr_1lev(jpi,jpj) , STAT=ierr(4) ) 120 134 ! 135 #if defined key_oasis3 136 IF (ln_medusa) THEN 137 ! We only actually need these arrays to be allocated if coupling and MEDUSA 138 ! are enabled 139 ALLOCATE( CO2Flux_out_cpl(jpi,jpj), DMS_out_cpl(jpi,jpj), & 140 PCO2a_in_cpl(jpi,jpj), Dust_in_cpl(jpi,jpj), STAT=ierr(5) ) 141 142 ! RSRH Temporarily initialise output coupling fields while we await clarification 143 ! of exactly how these will be initialised at model startup! 144 DMS_out_cpl(:,:) = 0.0 145 CO2Flux_out_cpl(:,:) = 0.0 146 ENDIF 147 #endif 148 121 149 oce_alloc = MAXVAL( ierr ) 122 150 IF( oce_alloc /= 0 ) CALL ctl_warn('oce_alloc: failed to allocate arrays')
Note: See TracChangeset
for help on using the changeset viewer.