- Timestamp:
- 2017-12-13T15:58:53+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_triad.F90
r7646 r9019 27 27 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 28 28 USE lib_mpp ! MPP library 29 USE wrk_nemo ! Memory Allocation30 29 USE timing ! Timing 31 30 … … 94 93 REAL(wp) :: ze1ur, ze2vr, ze3wr, zdxt, zdyt, zdzt 95 94 REAL(wp) :: zah, zah_slp, zaei_slp 96 REAL(wp), POINTER, DIMENSION(:,: ) :: z2d! 2D workspace97 REAL(wp), POINTER, DIMENSION(:,:,:) ::zdit, zdjt, zftu, zftv, ztfw, zpsi_uw, zpsi_vw ! 3D -95 REAL(wp), DIMENSION(jpi,jpj ) :: z2d ! 2D workspace 96 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zdit, zdjt, zftu, zftv, ztfw, zpsi_uw, zpsi_vw ! 3D - 98 97 !!---------------------------------------------------------------------- 99 98 ! 100 IF( nn_timing == 1 ) CALL timing_start('tra_ldf_triad') 101 ! 102 CALL wrk_alloc( jpi,jpj, z2d ) 103 CALL wrk_alloc( jpi,jpj,jpk, zdit, zdjt, zftu, zftv, ztfw, zpsi_uw, zpsi_vw ) 99 IF( ln_timing ) CALL timing_start('tra_ldf_triad') 104 100 ! 105 101 IF( .NOT.ALLOCATED(zdkt3d) ) THEN … … 434 430 END DO ! end tracer loop 435 431 ! ! =============== 436 ! 437 CALL wrk_dealloc( jpi,jpj, z2d ) 438 CALL wrk_dealloc( jpi,jpj,jpk, zdit, zdjt, zftu, zftv, ztfw, zpsi_uw, zpsi_vw ) 439 ! 440 IF( nn_timing == 1 ) CALL timing_stop('tra_ldf_triad') 432 IF( ln_timing ) CALL timing_stop('tra_ldf_triad') 441 433 ! 442 434 END SUBROUTINE tra_ldf_triad
Note: See TracChangeset
for help on using the changeset viewer.