Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90
- Timestamp:
- 2011-03-30T17:58:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90
r2528 r2715 41 41 !! NEMO/OPA 3.3 , NEMO Consortium (2010) 42 42 !! $Id$ 43 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 44 !!---------------------------------------------------------------------- 45 43 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 44 !!---------------------------------------------------------------------- 46 45 CONTAINS 47 46 … … 52 51 !! ** Purpose : compute the lateral ocean dynamics physics. 53 52 !!---------------------------------------------------------------------- 53 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 54 USE wrk_nemo, ONLY: ztrdu => wrk_3d_1 , ztrdv => wrk_3d_2 55 ! 54 56 INTEGER, INTENT(in) :: kt ! ocean time-step index 55 !! 56 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ztrdu, ztrdv ! 3D workspace 57 !!---------------------------------------------------------------------- 58 57 !!---------------------------------------------------------------------- 58 59 IF( wrk_in_use(3, 1,2) ) THEN 60 CALL ctl_stop('dyn_ldf: requested workspace arrays unavailable') ; RETURN 61 ENDIF 62 ! 59 63 IF( l_trddyn ) THEN ! temporary save of ta and sa trends 60 64 ztrdu(:,:,:) = ua(:,:,:) … … 106 110 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 107 111 ! 112 IF( wrk_not_released(3, 1,2) ) CALL ctl_stop('dyn_ldf: failed to release workspace arrays') 113 ! 108 114 END SUBROUTINE dyn_ldf 109 115
Note: See TracChangeset
for help on using the changeset viewer.