Ignore:
Timestamp:
2015-05-28T09:11:24+02:00 (6 years ago)
Author:
smasson
Message:

wrk_alloc/dealloc check

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90

    r5215 r5302  
    18831883      CALL crs_lbc_lnk( p_surf_crs_msk, cd_type, 1.0, pval=1.0 ) 
    18841884 
    1885       CALL wrk_dealloc( jpi, jpj, jpk, zsurf, zsurfmsk ) 
     1885      CALL wrk_dealloc( jpi, jpj, jpk, zsurfmsk, zsurf ) 
    18861886 
    18871887   END SUBROUTINE crs_dom_sfc 
     
    22752275      ENDDO 
    22762276      
    2277       CALL wrk_alloc( jpi_crs, jpj_crs, zmbk ) 
    2278  
    22792277      zmbk(:,:) = 0.0 
    22802278      zmbk(:,:) = REAL( mbathy_crs(:,:), wp ) ;   CALL crs_lbc_lnk(zmbk,'T',1.0)   ;   mbathy_crs(:,:) = INT( zmbk(:,:) ) 
Note: See TracChangeset for help on using the changeset viewer.