Ignore:
Timestamp:
2011-03-28T09:55:33+02:00 (10 years ago)
Author:
smasson
Message:

dynamic memory: correction for coupled model

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r2690 r2708  
    187187                hsnif(jpi,jpj) , v_ice(jpi,jpj) , fr2_i0(jpi,jpj) , alb_ice(jpi,jpj,jpl) , STAT=ierr(2) ) 
    188188#endif 
    189       sbc_cpl_init_alloc = MAXVAL( ierr ) 
     189      sbc_cpl_alloc = MAXVAL( ierr ) 
    190190      IF( lk_mpp            )   CALL mpp_sum ( sbc_cpl_alloc ) 
    191191      IF( sbc_cpl_alloc > 0 )   CALL ctl_warn('sbc_cpl_alloc: allocation of arrays failed') 
     
    207207      !!---------------------------------------------------------------------- 
    208208      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    209       USE wrk_nemo, ONLY:   zacs => wrk_2d_1 , zaos => wrk_2d_2   ! clear & overcast sky albedos 
     209      USE wrk_nemo, ONLY:   zacs => wrk_2d_3 , zaos => wrk_2d_4   ! clear & overcast sky albedos 
    210210      !! 
    211211      INTEGER, INTENT(in) ::   k_ice    ! ice management in the sbc (=0/1/2/3) 
     
    223223      !!--------------------------------------------------------------------- 
    224224 
    225       IF( wrk_in_use(2, 1,2) ) THEN 
     225      IF( wrk_in_use(2, 3,4) ) THEN 
    226226         CALL ctl_stop('sbc_cpl_init: requested workspace arrays unavailable')   ;   RETURN 
    227227      ENDIF 
     
    563563         &   CALL ctl_stop( 'sbc_cpl_init: diurnal cycle reconstruction (ln_dm2dc) needs daily couping for solar radiation' ) 
    564564 
    565       IF( wrk_not_released(2, 1,2) )   CALL ctl_stop('sbc_cpl_init: failed to release workspace arrays') 
     565      IF( wrk_not_released(2, 3,4) )   CALL ctl_stop('sbc_cpl_init: failed to release workspace arrays') 
    566566      ! 
    567567   END SUBROUTINE sbc_cpl_init 
     
    10891089      USE wrk_nemo, ONLY:   ztmp   => wrk_2d_2   ! temporary array 
    10901090      USE wrk_nemo, ONLY:   zsnow  => wrk_2d_3   ! snow precipitation  
    1091       USE wrk_nemo, ONLY:   zicefr => wrk_3d_1   ! ice fraction  
     1091      USE wrk_nemo, ONLY:   zicefr => wrk_3d_4   ! ice fraction  
    10921092      !! 
    10931093      REAL(wp), INTENT(in   ), DIMENSION(:,:,:) ::   p_frld     ! lead fraction                [0 to 1] 
     
    11101110      !!---------------------------------------------------------------------- 
    11111111 
    1112       IF( wrk_in_use(2, 1,2,3) .OR. wrk_in_use(3, 1) ) THEN 
     1112      IF( wrk_in_use(2, 1,2,3) .OR. wrk_in_use(3, 4) ) THEN 
    11131113         CALL ctl_stop('sbc_cpl_ice_flx: requested workspace arrays unavailable')   ;   RETURN 
    11141114      ENDIF 
     
    12321232 
    12331233      IF( wrk_not_released(2, 1,2,3)  .OR.   & 
    1234           wrk_not_released(3, 1)      )   CALL ctl_stop('sbc_cpl_ice_flx: failed to release workspace arrays') 
     1234          wrk_not_released(3, 4)      )   CALL ctl_stop('sbc_cpl_ice_flx: failed to release workspace arrays') 
    12351235      ! 
    12361236   END SUBROUTINE sbc_cpl_ice_flx 
Note: See TracChangeset for help on using the changeset viewer.