- Timestamp:
- 2012-02-25T16:50:01+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90
r3294 r3318 16 16 USE dom_oce ! ocean space and time domain 17 17 USE sbc_oce ! surface boundary condition: ocean 18 USE trd mod_oce ! ocean variables trends19 USE trd mod ! ocean dynamics trends18 USE trd_oce ! trends: ocean variables 19 USE trddyn ! trend manager: dynamics 20 20 USE in_out_manager ! I/O manager 21 USE lib_mpp 21 USE lib_mpp ! MPP library 22 22 USE prtctl ! Print control 23 USE wrk_nemo 24 USE timing 23 USE wrk_nemo ! Memory Allocation 24 USE timing ! Timing 25 25 26 26 IMPLICIT NONE … … 53 53 !! 54 54 !! ** Action : - Update (ua,va) with the vert. momentum adv. trends 55 !! - S ave the trends in (ztrdu,ztrdv) ('key_trddyn')55 !! - Send the trends to trddyn for diagnostics (l_trddyn=T) 56 56 !!---------------------------------------------------------------------- 57 57 INTEGER, INTENT(in) :: kt ! ocean time-step inedx … … 118 118 ztrdu(:,:,:) = ua(:,:,:) - ztrdu(:,:,:) 119 119 ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:) 120 CALL trd_ mod(ztrdu, ztrdv, jpdyn_trd_zad, 'DYN', kt)120 CALL trd_dyn( ztrdu, ztrdv, jpdyn_zad, kt ) 121 121 CALL wrk_dealloc( jpi, jpj, jpk, ztrdu, ztrdv ) 122 122 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.