- Timestamp:
- 2011-12-21T10:11:11+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_cen2.F90
r3186 r3231 49 49 !! ** Action : (ua,va) updated with the now vorticity term trend 50 50 !!---------------------------------------------------------------------- 51 USE oce , ONLY: tsa ! tsa used as 2 3D workspace52 !53 51 INTEGER, INTENT( in ) :: kt ! ocean time-step index 54 52 ! … … 61 59 IF( nn_timing == 1 ) CALL timing_start('dyn_adv_cen2') 62 60 ! 63 CALL wrk_alloc( jpi, jpj, jpk, zfu_t, zfv_t, zfu_f, zfv_f, zfu_uw, zfv_vw, zfw ) 64 zfu => tsa(:,:,:,1) 65 zfv => tsa(:,:,:,2) 61 CALL wrk_alloc( jpi, jpj, jpk, zfu_t, zfv_t, zfu_f, zfv_f, zfu_uw, zfv_vw, zfu, zfv, zfw ) 66 62 ! 67 63 IF( kt == nit000 .AND. lwp ) THEN … … 163 159 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 164 160 ! 165 CALL wrk_dealloc( jpi, jpj, jpk, zfu_t, zfv_t, zfu_f, zfv_f, zfu_uw, zfv_vw, zf w )161 CALL wrk_dealloc( jpi, jpj, jpk, zfu_t, zfv_t, zfu_f, zfv_f, zfu_uw, zfv_vw, zfu, zfv, zfw ) 166 162 ! 167 163 IF( nn_timing == 1 ) CALL timing_stop('dyn_adv_cen2')
Note: See TracChangeset
for help on using the changeset viewer.