Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90
- Timestamp:
- 2012-01-28T17:44:18+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf.F90
r2715 r3294 26 26 USE lib_mpp ! distribued memory computing library 27 27 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 28 USE wrk_nemo ! Memory Allocation 29 USE timing ! Timing 30 28 31 29 32 IMPLICIT NONE … … 51 54 !! ** Purpose : compute the lateral ocean dynamics physics. 52 55 !!---------------------------------------------------------------------- 53 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released54 USE wrk_nemo, ONLY: ztrdu => wrk_3d_1 , ztrdv => wrk_3d_255 56 ! 56 57 INTEGER, INTENT(in) :: kt ! ocean time-step index 57 ! !----------------------------------------------------------------------58 59 IF( wrk_in_use(3, 1,2) ) THEN60 CALL ctl_stop('dyn_ldf: requested workspace arrays unavailable') ; RETURN61 ENDIF58 ! 59 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrdu, ztrdv 60 !!---------------------------------------------------------------------- 61 ! 62 IF( nn_timing == 1 ) CALL timing_start('dyn_ldf') 62 63 ! 63 64 IF( l_trddyn ) THEN ! temporary save of ta and sa trends 65 CALL wrk_alloc( jpi, jpj, jpk, ztrdu, ztrdv ) 64 66 ztrdu(:,:,:) = ua(:,:,:) 65 67 ztrdv(:,:,:) = va(:,:,:) … … 105 107 ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:) 106 108 CALL trd_mod( ztrdu, ztrdv, jpdyn_trd_ldf, 'DYN', kt ) 109 CALL wrk_dealloc( jpi, jpj, jpk, ztrdu, ztrdv ) 107 110 ENDIF 108 111 ! ! print sum trends (used for debugging) … … 110 113 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 111 114 ! 112 IF( wrk_not_released(3, 1,2) ) CALL ctl_stop('dyn_ldf: failed to release workspace arrays')115 IF( nn_timing == 1 ) CALL timing_stop('dyn_ldf') 113 116 ! 114 117 END SUBROUTINE dyn_ldf … … 147 150 IF( ln_dynldf_hor ) ioptio = ioptio + 1 148 151 IF( ln_dynldf_iso ) ioptio = ioptio + 1 149 IF( ioptio /=1 ) CALL ctl_stop( ' use only ONE direction (level/hor/iso)' )152 IF( ioptio > 1 ) CALL ctl_stop( ' use only ONE direction (level/hor/iso)' ) 150 153 151 154 ! ! Set nldf, the type of lateral diffusion, from ln_dynldf_... logicals
Note: See TracChangeset
for help on using the changeset viewer.