Changeset 14322
- Timestamp:
- 2021-01-20T15:42:16+01:00 (3 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0.4_revert_a_i_last_couple/src
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_revert_a_i_last_couple/src/ICE/ice.F90
r14075 r14322 417 417 ! 418 418 !!---------------------------------------------------------------------- 419 !! * Only for atmospheric coupling 420 !!---------------------------------------------------------------------- 421 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: a_i_last_couple !: Ice fractional area at last coupling time 422 ! 423 !!---------------------------------------------------------------------- 419 424 !! NEMO/ICE 4.0 , NEMO Consortium (2018) 420 425 !! $Id$ … … 429 434 INTEGER :: ice_alloc 430 435 ! 431 INTEGER :: ierr(1 6), ii436 INTEGER :: ierr(17), ii 432 437 !!----------------------------------------------------------------- 433 438 ierr(:) = 0 … … 512 517 ALLOCATE( t_si(jpi,jpj,jpl) , tm_si(jpi,jpj) , qcn_ice_bot(jpi,jpj,jpl) , qcn_ice_top(jpi,jpj,jpl) , STAT = ierr(ii) ) 513 518 519 ! * For atmospheric coupling 520 ii = ii + 1 521 ALLOCATE( a_i_last_couple(jpi,jpj,jpl) , STAT=ierr(ii) ) 522 514 523 ice_alloc = MAXVAL( ierr(:) ) 515 524 IF( ice_alloc /= 0 ) CALL ctl_stop( 'STOP', 'ice_alloc: failed to allocate arrays.' ) -
NEMO/branches/UKMO/NEMO_4.0.4_revert_a_i_last_couple/src/OCE/SBC/sbc_ice.F90
r14075 r14322 95 95 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: a_i 96 96 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: h_i, h_s 97 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: a_i_last_couple !: Sea ice fraction on categories at the last coupling point 97 98 98 99 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tatm_ice !: air temperature [K] -
NEMO/branches/UKMO/NEMO_4.0.4_revert_a_i_last_couple/src/OCE/SBC/sbccpl.F90
r14075 r14322 205 205 206 206 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: alb_oce_mix ! ocean albedo sent to atmosphere (mix clear/overcast sky) 207 #if defined key_si3 || defined key_cice208 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: a_i_last_couple !: Ice fractional area at last coupling time209 #endif210 207 211 208 REAL(wp) :: rpref = 101000._wp ! reference atmospheric pressure[N/m2] … … 227 224 !! *** FUNCTION sbc_cpl_alloc *** 228 225 !!---------------------------------------------------------------------- 229 INTEGER :: ierr( 5)226 INTEGER :: ierr(4) 230 227 !!---------------------------------------------------------------------- 231 228 ierr(:) = 0 … … 237 234 #endif 238 235 ALLOCATE( xcplmask(jpi,jpj,0:nn_cplmodel) , STAT=ierr(3) ) 239 #if defined key_si3 || defined key_cice 240 ALLOCATE( a_i_last_couple(jpi,jpj,jpl) , STAT=ierr(4) ) 241 #endif 242 ! 243 IF( .NOT. ln_apr_dyn ) ALLOCATE( ssh_ib(jpi,jpj), ssh_ibb(jpi,jpj), apr(jpi, jpj), STAT=ierr(5) ) 236 ! 237 IF( .NOT. ln_apr_dyn ) ALLOCATE( ssh_ib(jpi,jpj), ssh_ibb(jpi,jpj), apr(jpi, jpj), STAT=ierr(4) ) 244 238 245 239 sbc_cpl_alloc = MAXVAL( ierr ) … … 2189 2183 ! 2190 2184 isec = ( kt - nit000 ) * NINT( rdt ) ! date of exchanges 2191 info = OASIS_idle2192 2185 2193 2186 zfr_l(:,:) = 1.- fr_i(:,:)
Note: See TracChangeset
for help on using the changeset viewer.