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 2399 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_muscl.F90 – NEMO

Ignore:
Timestamp:
2010-11-17T10:09:35+01:00 (13 years ago)
Author:
gm
Message:

v3.3beta: diaptr (poleward heat & salt transports) #759 : rewriting including dynamical allocation + DOCTOR names

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_muscl.F90

    r2333 r2399  
    4040   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
    4141   !! $Id$  
    42    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    43    !!---------------------------------------------------------------------- 
    44  
     42   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
     43   !!---------------------------------------------------------------------- 
    4544CONTAINS 
    4645 
    4746   SUBROUTINE tra_adv_muscl( kt, cdtype, p2dt, pun, pvn, pwn, & 
    48       &                                        ptb, pta, kjpt   ) 
     47      &                                        ptb, pta, kjpt ) 
    4948      !!---------------------------------------------------------------------- 
    5049      !!                    ***  ROUTINE tra_adv_muscl  *** 
     
    179178         END IF 
    180179         !                                 ! "Poleward" heat and salt transports (contribution of upstream fluxes) 
    181          IF( cdtype == 'TRA' .AND. ln_diaptr .AND. ( MOD( kt, nf_ptr ) == 0 ) ) THEN   
    182             IF( jn == jp_tem )  pht_adv(:) = ptr_vj( zwy(:,:,:) ) 
    183             IF( jn == jp_sal )  pst_adv(:) = ptr_vj( zwy(:,:,:) ) 
     180         IF( cdtype == 'TRA' .AND. ln_diaptr .AND. ( MOD( kt, nn_fptr ) == 0 ) ) THEN   
     181            IF( jn == jp_tem )  htr_adv(:) = ptr_vj( zwy(:,:,:) ) 
     182            IF( jn == jp_sal )  str_adv(:) = ptr_vj( zwy(:,:,:) ) 
    184183         ENDIF 
    185184 
Note: See TracChangeset for help on using the changeset viewer.