Changeset 2561 for trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90
- Timestamp:
- 2011-01-17T17:22:58+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90
r2558 r2561 90 90 & CALL tra_adv_eiv( kt, zun, zvn, zwn, 'TRA' ) ! add the eiv transport (if necessary) 91 91 ! 92 CALL iom_put( "uoce _eff", zun ) ! output effective transport93 CALL iom_put( "voce _eff", zvn )94 CALL iom_put( "woce _eff", zwn )92 CALL iom_put( "uocetr_eff", zun ) ! output effective transport 93 CALL iom_put( "vocetr_eff", zvn ) 94 CALL iom_put( "wocetr_eff", zwn ) 95 95 96 96 SELECT CASE ( nadv ) !== compute advection trend and add it to general trend ==!
Note: See TracChangeset
for help on using the changeset viewer.