Changeset 14174
- Timestamp:
- 2020-12-15T19:25:18+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/TRD/trdtra.F90
r13497 r14174 91 91 IF( .NOT. ALLOCATED( trdtx ) ) THEN ! allocate trdtra arrays 92 92 IF( trd_tra_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'trd_tra : unable to allocate arrays' ) 93 avt_evd(:,:,:) = 0._wp 93 94 ENDIF 94 95 !
Note: See TracChangeset
for help on using the changeset viewer.