New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2327 for branches – NEMO

Changeset 2327 for branches


Ignore:
Timestamp:
2010-10-28T11:08:01+02:00 (14 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.