- Timestamp:
- 2015-07-16T13:55:15+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90
- Property svn:keywords set to Id
r5601 r5602 57 57 # include "domzgr_substitute.h90" 58 58 59 !! $Id$ 59 60 CONTAINS 60 61 … … 2389 2390 CALL crs_lbc_lnk( p_surf_crs_msk, cd_type, 1.0, pval=1.0 ) 2390 2391 2391 CALL wrk_dealloc( jpi, jpj, jpk, zsurf , zsurfmsk)2392 CALL wrk_dealloc( jpi, jpj, jpk, zsurfmsk, zsurf ) 2392 2393 2393 2394 END SUBROUTINE crs_dom_sfc … … 2892 2893 ENDDO 2893 2894 2894 CALL wrk_alloc( jpi_crs, jpj_crs, zmbk )2895 2896 2895 zmbk(:,:) = 0.0 2897 2896 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.