- Timestamp:
- 2018-10-29T15:20:26+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90
r10249 r10251 100 100 IF( ( cdtype == 'TRA' .AND. l_trdtra ) .OR. ( cdtype == 'TRC' .AND. l_trdtrc ) ) l_trd = .TRUE. 101 101 ENDIF 102 ! slwa unless you use l_trdtra too, the above switches off trend calculations for l_trdtrc103 l_trd = .FALSE.104 IF( ( cdtype == 'TRA' .AND. l_trdtra ) .OR. ( cdtype == 'TRC' .AND. l_trdtrc ) ) l_trd = .TRUE.105 !slwa106 102 ! 107 103 IF( l_trd ) THEN … … 330 326 CALL wrk_alloc( jpi, jpj, zwx_sav, zwy_sav ) 331 327 CALL wrk_alloc( jpi, jpj, jpk, zwi, zwz , zhdiv, zwz_sav, zwzts ) 332 CALL wrk_alloc( jpi, jpj, jpk, kjpt+1, ztrs )328 CALL wrk_alloc( jpi, jpj, jpk, 3, ztrs ) 333 329 ! 334 330 IF( kt == kit000 ) THEN … … 568 564 ! 569 565 CALL wrk_dealloc( jpi, jpj, jpk, zwi, zwz, zhdiv, zwz_sav, zwzts ) 570 CALL wrk_dealloc( jpi, jpj, jpk, kjpt+1, ztrs )566 CALL wrk_dealloc( jpi, jpj, jpk, 3, ztrs ) 571 567 CALL wrk_dealloc( jpi, jpj, zwx_sav, zwy_sav ) 572 568 IF( l_trd ) CALL wrk_dealloc( jpi, jpj, jpk, ztrdx, ztrdy, ztrdz )
Note: See TracChangeset
for help on using the changeset viewer.