Changeset 3913
- Timestamp:
- 2013-06-12T21:45:17+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90
r3892 r3913 564 564 !!-------------------------------------------------------------------- 565 565 ! 566 CALL wrk_alloc( jp i, zphi , zfoo )567 CALL wrk_alloc( jp i, jpk, z_1 )566 CALL wrk_alloc( jpj , zphi , zfoo ) 567 CALL wrk_alloc( jpj , jpk, z_1 ) 568 568 569 569 ! define time axis … … 879 879 ENDIF 880 880 ! 881 CALL wrk_dealloc( jp i, zphi , zfoo )882 CALL wrk_dealloc( jp i, jpk, z_1 )881 CALL wrk_dealloc( jpj , zphi , zfoo ) 882 CALL wrk_dealloc( jpj , jpk, z_1 ) 883 883 ! 884 884 END SUBROUTINE dia_ptr_wri
Note: See TracChangeset
for help on using the changeset viewer.