Ignore:
Timestamp:
2017-04-13T17:13:42+02:00 (3 years ago)
Author:
timgraham
Message:

Minor bug fixes with pointers in bdy and also remove wrk_alloc calls in test cases

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/CONFIG/TEST_CASES/SAS_BIPER/MY_SRC/usrdef_sbc.F90

    r7377 r7911  
    9999      !! ** Purpose :   provide the surface boundary (flux) condition over sea-ice 
    100100      !!--------------------------------------------------------------------- 
    101       REAL(wp), DIMENSION(:,:), POINTER ::   zsnw       ! snw distribution after wind blowing 
     101      REAL(wp), DIMENSION(jpi,jpj) ::   zsnw       ! snw distribution after wind blowing 
    102102      INTEGER, INTENT(in) ::   kt   ! ocean time step 
    103103      !!--------------------------------------------------------------------- 
    104       CALL wrk_alloc( jpi,jpj, zsnw ) 
    105104      ! 
    106105      IF( kt==nit000 .AND. lwp)   WRITE(numout,*)' usrdef_sbc_ice : SAS_BIPER case: NO flux forcing' 
     
    140139      fr2_i0(:,:) = ( 0.82 * ( 1.0 - cldf_ice ) + 0.65 * cldf_ice ) 
    141140 
    142       CALL wrk_dealloc( jpi,jpj, zsnw ) 
    143  
    144141   END SUBROUTINE usrdef_sbc_ice_flx 
    145142 
Note: See TracChangeset for help on using the changeset viewer.