Changeset 2327


Ignore:
Timestamp:
2010-10-28T11:08:01+02:00 (10 years ago)
Author:
cetlod
Message:

improvment of the trends routine manager, trdtra.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90

    r2287 r2327  
    7171         ELSE 
    7272            trdt(:,:,:) = ptrd(:,:,:) 
     73            IF( ktrd == jptra_trd_bbc .OR. ktrd == jptra_trd_qsr ) THEN 
     74               ztrds(:,:,:) = 0. 
     75               CALL trd_mod( trdt, ztrds, ktrd, ctype, kt ) 
     76            END IF 
    7377         END IF 
    7478      END IF 
Note: See TracChangeset for help on using the changeset viewer.