Changeset 5302 for trunk/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90
- Timestamp:
- 2015-05-28T09:11:24+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90
r5215 r5302 1883 1883 CALL crs_lbc_lnk( p_surf_crs_msk, cd_type, 1.0, pval=1.0 ) 1884 1884 1885 CALL wrk_dealloc( jpi, jpj, jpk, zsurf , zsurfmsk)1885 CALL wrk_dealloc( jpi, jpj, jpk, zsurfmsk, zsurf ) 1886 1886 1887 1887 END SUBROUTINE crs_dom_sfc … … 2275 2275 ENDDO 2276 2276 2277 CALL wrk_alloc( jpi_crs, jpj_crs, zmbk )2278 2279 2277 zmbk(:,:) = 0.0 2280 2278 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.