Changeset 2587 for branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/TRA/trazdf_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/trazdf_tam.F90
r1885 r2587 46 46 & tra_zdf_imp_tan, & 47 47 & tra_zdf_imp_adj, & 48 & tra_zdf_imp_adj_tst, & 49 & tra_zdf_imp_tlm_tst 48 #if defined key_tst_tlm 49 & tra_zdf_imp_tlm_tst, & 50 #endif 51 & tra_zdf_imp_adj_tst 50 52 USE in_out_manager, ONLY: & ! I/O manager 51 53 & lwp, & … … 63 65 & tra_zdf_tan, & 64 66 & tra_zdf_adj ! routines called by step_tam.F90 65 PUBLIC & 66 & tra_zdf_adj_tst, & ! routine called by tst.F90 67 & tra_zdf_tlm_tst ! routine called by tst.F90 67 PUBLIC tra_zdf_adj_tst ! routine called by tst.F90 68 #if defined key_tst_tlm 69 PUBLIC tra_zdf_tlm_tst ! routine called by tst.F90 70 #endif 68 71 INTEGER :: nzdf = 0 ! type vertical diffusion algorithm used 69 72 ! ! defined from ln_zdf... namlist logicals) … … 247 250 248 251 END SUBROUTINE zdf_ctl_tam 249 252 #if defined key_tst_tlm 250 253 SUBROUTINE tra_zdf_tlm_tst( kumadt ) 251 254 !!----------------------------------------------------------------------- … … 282 285 END SUBROUTINE tra_zdf_tlm_tst 283 286 #endif 287 #endif 284 288 END MODULE trazdf_tam
Note: See TracChangeset
for help on using the changeset viewer.