Changeset 13084 for NEMO/trunk/src/OCE/TRD
- Timestamp:
- 2020-06-10T10:22:34+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/TRD/trdtra.F90
r13083 r13084 92 92 ENDIF 93 93 ! 94 i01 = COUNT( (/ PRESENT(pu n) .OR. ( ktrd /= jptra_xad .AND. ktrd /= jptra_yad .AND. ktrd /= jptra_zad ) /) )94 i01 = COUNT( (/ PRESENT(pu) .OR. ( ktrd /= jptra_xad .AND. ktrd /= jptra_yad .AND. ktrd /= jptra_zad ) /) ) 95 95 ! 96 96 IF( ctype == 'TRA' .AND. ktra == jp_tem ) THEN !== Temperature trend ==!
Note: See TracChangeset
for help on using the changeset viewer.