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 8374 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3 – NEMO

Ignore:
Timestamp:
2017-07-25T19:48:56+02:00 (7 years ago)
Author:
clem
Message:

complete previous commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

    r8341 r8374  
    107107      REAL(wp) ::   zqmass           ! Heat flux associated with mass exchange ice->ocean (W.m-2) 
    108108      REAL(wp) ::   zqsr             ! New solar flux received by the ocean 
    109       REAL(wp), POINTER, DIMENSION(:,:,:) ::   zalb_cs, zalb_os     ! 3D workspace 
    110       REAL(wp), POINTER, DIMENSION(:,:)   ::   zalb                 ! 2D workspace 
     109      REAL(wp), DIMENSION(jpi,jpj,jpl) ::   zalb_cs, zalb_os     ! 3D workspace 
     110      REAL(wp), DIMENSION(jpi,jpj)     ::   zalb                 ! 2D workspace 
    111111      !!--------------------------------------------------------------------- 
    112112 
     
    122122       
    123123      ! albedo output 
    124       CALL wrk_alloc( jpi,jpj, zalb )     
    125  
    126124      zalb(:,:) = 0._wp 
    127125      WHERE     ( at_i_b <= epsi06 )  ;  zalb(:,:) = rn_alb_oce 
     
    133131      IF( iom_use('albedo'  ) )        CALL iom_put( "albedo"  , zalb(:,:) )           ! surface albedo output 
    134132 
    135       CALL wrk_dealloc( jpi,jpj, zalb )     
    136133 
    137134      DO jj = 1, jpj 
     
    217214      !    Snow/ice albedo (only if sent to coupler, useless in forced mode)   ! 
    218215      !------------------------------------------------------------------------! 
    219       CALL wrk_alloc( jpi,jpj,jpl,   zalb_cs, zalb_os )     
    220216      CALL albedo_ice( t_su, ht_i, ht_s, a_ip_frac, h_ip, ln_pnd_rad, zalb_cs, zalb_os ) ! cloud-sky and overcast-sky ice albedos 
    221217 
    222218      alb_ice(:,:,:) = ( 1. - cldf_ice ) * zalb_cs(:,:,:) + cldf_ice * zalb_os(:,:,:) 
    223       CALL wrk_dealloc( jpi,jpj,jpl,   zalb_cs, zalb_os ) 
    224219 
    225220      ! conservation test 
Note: See TracChangeset for help on using the changeset viewer.