Changeset 2587 for branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/DYN/dynspg_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/DYN/dynspg_tam.F90
r1885 r2587 58 58 PUBLIC dyn_spg_tan, & ! routine called by steptan module 59 59 & dyn_spg_adj, & ! routine called by stepadj module 60 & dyn_spg_adj_tst, & ! routine controlling adjoint tests 61 & dyn_spg_tlm_tst 60 & dyn_spg_adj_tst ! routine controlling adjoint tests 61 #if defined key_tst_tlm 62 PUBLIC dyn_spg_tlm_tst 63 #endif 62 64 63 65 !! * module variables … … 262 264 263 265 END SUBROUTINE dyn_spg_ctl_tam 264 266 #if defined key_tst_tlm 265 267 SUBROUTINE dyn_spg_tlm_tst( kumadt ) 266 268 !!----------------------------------------------------------------------- … … 310 312 !!====================================================================== 311 313 #endif 314 #endif 312 315 END MODULE dynspg_tam
Note: See TracChangeset
for help on using the changeset viewer.