Changeset 5302 for trunk/NEMOGCM/NEMO

Timestamp:

2015-05-28T09:11:24+02:00 (9 years ago)

Author:

smasson

Message:

wrk_alloc/dealloc check

Location:

trunk/NEMOGCM/NEMO/OPA_SRC

Files:

• CRS/crsdom.F90 (modified) (2 diffs)
• SBC/sbcisf.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/CRS/crsdom.F90

@@ -1883 +1883 @@
       CALL crs_lbc_lnk( p_surf_crs_msk, cd_type, 1.0, pval=1.0 )
 
-      CALL wrk_dealloc( jpi, jpj, jpk, zsurf, zsurfmsk )
+      CALL wrk_dealloc( jpi, jpj, jpk, zsurfmsk, zsurf )
 
    END SUBROUTINE crs_dom_sfc
@@ -2275 +2275 @@
       ENDDO
      
-      CALL wrk_alloc( jpi_crs, jpj_crs, zmbk )
-
       zmbk(:,:) = 0.0
       zmbk(:,:) = REAL( mbathy_crs(:,:), wp ) ;   CALL crs_lbc_lnk(zmbk,'T',1.0)   ;   mbathy_crs(:,:) = INT( zmbk(:,:) )

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

@@ -561 +561 @@
       CALL iom_put('isfgammat', zgammat2d)
       CALL iom_put('isfgammas', zgammas2d)
-         !
-      !CALL wrk_dealloc( jpi,jpj, zfrz,zpress,zti, zqisf, zfwfisf  )
+      !
       CALL wrk_dealloc( jpi,jpj, zfrz,zpress,zti, zgammat2d, zgammas2d )
       !