- Timestamp:
- 08/31/12 15:41:37 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
vendor/nemo/current/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsink.F90
r4 r44 65 65 !!---------------------------------------------------------------------- 66 66 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 67 !! $Id: p4zsink.F90 3 295 2012-01-30 15:49:07Z cetlod $67 !! $Id: p4zsink.F90 3404 2012-06-02 11:52:06Z cetlod $ 68 68 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 69 69 !!---------------------------------------------------------------------- … … 295 295 ENDIF 296 296 ! 297 CALL wrk_ alloc( jpi, jpj, jpk, znum3d )297 CALL wrk_dealloc( jpi, jpj, jpk, znum3d ) 298 298 ! 299 299 IF( nn_timing == 1 ) CALL timing_stop('p4z_sink')
Note: See TracChangeset
for help on using the changeset viewer.