- 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/TRA/trazdf.F90
r3294 r3318 22 22 USE trazdf_exp ! vertical diffusion: explicit (tra_zdf_exp routine) 23 23 USE trazdf_imp ! vertical diffusion: implicit (tra_zdf_imp routine) 24 25 24 USE ldftra_oce ! ocean active tracers: lateral physics 26 USE trd mod_oce ! ocean active tracers: lateral physics27 USE trdtra ! ocean tracers trends25 USE trd_oce ! trends: ocean variables 26 USE trdtra ! trends manager: tracers 28 27 USE in_out_manager ! I/O manager 29 28 USE prtctl ! Print control … … 96 95 ztrds(:,:,jk) = ( ( tsa(:,:,jk,jp_sal) - tsb(:,:,jk,jp_sal) ) / r2dtra(jk) ) - ztrds(:,:,jk) 97 96 END DO 98 CALL trd_tra( kt, 'TRA', jp_tem, jptra_ trd_zdf, ztrdt )99 CALL trd_tra( kt, 'TRA', jp_sal, jptra_ trd_zdf, ztrds )97 CALL trd_tra( kt, 'TRA', jp_tem, jptra_zdf, ztrdt ) 98 CALL trd_tra( kt, 'TRA', jp_sal, jptra_zdf, ztrds ) 100 99 CALL wrk_dealloc( jpi, jpj, jpk, ztrdt, ztrds ) 101 100 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.