Changeset 7559
- Timestamp:
- 2017-01-16T10:42:54+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90
r7494 r7559 100 100 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~' 101 101 ! 102 l_trd = .FALSE.103 l_trans = .FALSE.104 IF( ( cdtype == 'TRA' .AND. l_trdtra ) .OR. ( cdtype == 'TRC' .AND. l_trdtrc ) ) l_trd = .TRUE.105 IF( cdtype == 'TRA' .AND. (iom_use("uadv_heattr") .OR. iom_use("vadv_heattr") ) ) l_trans = .TRUE.106 102 ENDIF 103 104 l_trd = .FALSE. 105 l_trans = .FALSE. 106 IF( ( cdtype == 'TRA' .AND. l_trdtra ) .OR. ( cdtype == 'TRC' .AND. l_trdtrc ) ) l_trd = .TRUE. 107 IF( cdtype == 'TRA' .AND. (iom_use("uadv_heattr") .OR. iom_use("vadv_heattr") ) ) l_trans = .TRUE. 107 108 ! 108 109 IF( l_trd .OR. l_trans ) THEN
Note: See TracChangeset
for help on using the changeset viewer.