Changeset 7582 for branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90
- Timestamp:
- 2017-01-20T14:53:20+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_for_static_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traldf.F90
r6498 r7582 76 76 ENDIF 77 77 78 79 #ifdef key_traldf_c2d 80 IF (kt == nit000) THEN 81 CALL iom_put( "aht2D", ahtw) 82 #endif 83 84 78 85 SELECT CASE ( nldf ) ! compute lateral mixing trend and add it to the general trend 79 86 CASE ( 0 ) ; CALL tra_ldf_lap ( kt, nit000, 'TRA', gtsu, gtsv, gtui, gtvi, &
Note: See TracChangeset
for help on using the changeset viewer.