- Timestamp:
- 2011-02-18T13:49:27+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg.F90
r2528 r2590 73 73 !! of the physical meaning of the results. 74 74 !!---------------------------------------------------------------------- 75 USE wrk_nemo, ONLY: wrk_use, wrk_release 76 USE wrk_nemo, ONLY: ztrdu => wrk_3d_4, ztrdv => wrk_3d_5 77 !! 75 78 INTEGER, INTENT(in ) :: kt ! ocean time-step index 76 79 INTEGER, INTENT( out) :: kindic ! solver flag … … 78 81 INTEGER :: ji, jj, jk ! dummy loop indices 79 82 REAL(wp) :: z2dt, zg_2 ! temporary scalar 80 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ztrdu, ztrdv ! 3D workspace 81 !!---------------------------------------------------------------------- 82 83 !!---------------------------------------------------------------------- 84 85 IF(.NOT. wrk_use(3, 4,5))THEN 86 CALL ctl_stop('dyn_spg: requested workspace arrays unavailable.') 87 RETURN 88 END IF 83 89 84 90 !!gm NOTA BENE : the dynspg_exp and dynspg_ts should be modified so that … … 149 155 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 150 156 ! 157 IF(.NOT. wrk_release(3, 4,5))THEN 158 CALL ctl_stop('dyn_spg: failed to release workspace arrays.') 159 END IF 160 ! 151 161 END SUBROUTINE dyn_spg 152 162
Note: See TracChangeset
for help on using the changeset viewer.