Changeset 2587 for branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/TRA/traadv_tam.F90
- Timestamp:
- 2011-02-15T12:58:59+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/TRA/traadv_tam.F90
r1885 r2587 43 43 & tra_adv_cen2_tan, & 44 44 & tra_adv_cen2_adj, & 45 & tra_adv_cen2_adj_tst, & 46 & tra_adv_cen2_tlm_tst 45 #if defined key_tst_tlm 46 & tra_adv_cen2_tlm_tst, & 47 #endif 48 & tra_adv_cen2_adj_tst 47 49 USE traadv_eiv_tam, ONLY: & ! advection trend - eddy induced velocity (tra_adv_eiv routine) 48 50 & tra_adv_eiv_tan, & 49 51 & tra_adv_eiv_adj 50 ! USE in_out_manager, ONLY : & ! I/O manager51 ! & lwp, &52 ! & numout, &53 ! & nit00054 52 USE in_out_manager ! I/O manager 55 53 USE prtctl ! Print control … … 62 60 PUBLIC tra_adv_ctl_tam ! routine called by stepadj module 63 61 PUBLIC tra_adv_adj_tst ! routine called by tst module 62 #if defined key_tst_tlm 64 63 PUBLIC tra_adv_tlm_tst ! routine called by tst module 64 #endif 65 65 !!* Namelist nam_traadv 66 66 LOGICAL, PUBLIC :: ln_traadv_cen2 = .TRUE. ! 2nd order centered scheme flag … … 305 305 ! 306 306 END SUBROUTINE tra_adv_ctl_tam 307 307 #if defined key_tst_tlm 308 308 SUBROUTINE tra_adv_tlm_tst( kumadt ) 309 309 !!----------------------------------------------------------------------- … … 335 335 END SUBROUTINE tra_adv_tlm_tst 336 336 #endif 337 #endif 337 338 338 339
Note: See TracChangeset
for help on using the changeset viewer.