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 2083 for branches – NEMO

Changeset 2083 for branches


Ignore:
Timestamp:
2010-09-10T14:49:11+02:00 (14 years ago)
Author:
cetlod
Message:

correction of minor bugs

Location:
branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/TRA/eosbn2.F90

    r2082 r2083  
    516516                  pn2(ji,jj,jk) = zgde3w * zbeta * tmask(ji,jj,jk)           &   ! N^2  
    517517                     &          * ( zalbet * ( pts(ji,jj,jk-1,jp_tem) - pts(ji,jj,jk,jp_tem) )   & 
    518                      &                     - ( pts(ji,jj,jk-1njp_sal) - pts(ji,jj,jk,jp_sal) ) ) 
     518                     &                     - ( pts(ji,jj,jk-1,jp_sal) - pts(ji,jj,jk,jp_sal) ) ) 
    519519#if defined key_zdfddm 
    520520                  !                                                         !!bug **** caution a traiter zds=dk[S]= 0 !!!! 

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/TRA/traadv_muscl.F90

    r2082 r2083  
    175175         !                                 ! trend diagnostics (contribution of upstream fluxes) 
    176176         IF( l_trd )  THEN 
    177             CALL trd_tra( kt, cdtype, jn, jpt_trd_xad, zwx, pun, ptb(:,:,:,jn) ) 
    178             CALL trd_tra( kt, cdtype, jn, jpt_trd_yad, zwy, pvn, ptb(:,:,:,jn) ) 
     177            CALL trd_tra( kt, cdtype, jn, jptra_trd_xad, zwx, pun, ptb(:,:,:,jn) ) 
     178            CALL trd_tra( kt, cdtype, jn, jptra_trd_yad, zwy, pvn, ptb(:,:,:,jn) ) 
    179179         END IF 
    180180         !                                 ! "Poleward" heat and salt transports (contribution of upstream fluxes) 
    … …  
    255255         END DO 
    256256         !                                 ! Save the vertical advective trends for diagnostic 
    257          IF( l_trd ) CALL trd_tra( kt, cdtype, jn, jpt_trd_zad, zwx, pwn, ptb(:,:,:,jn) ) 
     257         IF( l_trd ) CALL trd_tra( kt, cdtype, jn, jptra_trd_zad, zwx, pwn, ptb(:,:,:,jn) ) 
    258258         ! 
    259259      ENDDO 

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/TRA/traadv_muscl2.F90

    r2082 r2083  
    199199         !                                 ! trend diagnostics (contribution of upstream fluxes) 
    200200         IF( l_trd ) THEN 
    201             CALL trd_tra( kt, cdtype, jn, jpt_trd_xad, zwx, pun, ptb(:,:,:,jn) ) 
    202             CALL trd_tra( kt, cdtype, jn, jpt_trd_yad, zwy, pvn, ptb(:,:,:,jn) ) 
     201            CALL trd_tra( kt, cdtype, jn, jptra_trd_xad, zwx, pun, ptb(:,:,:,jn) ) 
     202            CALL trd_tra( kt, cdtype, jn, jptra_trd_yad, zwy, pvn, ptb(:,:,:,jn) ) 
    203203         END IF 
    204204 
    … …  
    295295         ! ------------------------------------------------- 
    296296         !                                 ! trend diagnostics (contribution of upstream fluxes) 
    297          IF( l_trd )  CALL trd_tra( kt, cdtype, jn, jpt_trd_zad, zwx, pwn, ptb(:,:,:,jn) ) 
     297         IF( l_trd )  CALL trd_tra( kt, cdtype, jn, jptra_trd_zad, zwx, pwn, ptb(:,:,:,jn) ) 
    298298         ! 
    299299      ENDDO 

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/TRA/traadv_qck.F90

    r2082 r2083  
    229229         END DO 
    230230         !                                 ! trend diagnostics (contribution of upstream fluxes) 
    231          IF( l_trd )  CALL trd_tra( kt, cdtype, jn, jpt_trd_xad, zwx, pun, ptn(:,:,:,jn) ) 
     231         IF( l_trd )  CALL trd_tra( kt, cdtype, jn, jptra_trd_xad, zwx, pun, ptn(:,:,:,jn) ) 
    232232         ! 
    233233      END DO 
    … …  
    349349         END DO 
    350350         !                                 ! trend diagnostics (contribution of upstream fluxes) 
    351          IF( l_trd )  CALL trd_tra( kt, cdtype, jn, jpt_trd_yad, zwy, pvn, ptn(:,:,:,jn) ) 
     351         IF( l_trd )  CALL trd_tra( kt, cdtype, jn, jptra_trd_yad, zwy, pvn, ptn(:,:,:,jn) ) 
    352352         !                                 ! "Poleward" heat and salt transports (contribution of upstream fluxes) 
    353353         IF( cdtype == 'TRA' .AND. ln_diaptr .AND. ( MOD( kt, nf_ptr ) == 0 ) ) THEN   
    … …  
    410410         END DO 
    411411         !                                 ! Save the vertical advective trends for diagnostic 
    412          IF( l_trd )  CALL trd_tra( kt, cdtype, jn, jpt_trd_zad, zwz, pwn, ptn(:,:,:,jn) ) 
     412         IF( l_trd )  CALL trd_tra( kt, cdtype, jn, jptra_trd_zad, zwz, pwn, ptn(:,:,:,jn) ) 
    413413         ! 
    414414      END DO 

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/TRA/traadv_tvd.F90

    r2082 r2083  
    233233            ztrdz(:,:,:) = ztrdz(:,:,:) + zwz(:,:,:)  ! <<< Add to previously computed 
    234234             
    235             CALL trd_tra( kt, cdtype, jn, jpt_trd_xad, ztrdx, pun, ptn(:,:,:,jn) )    
    236             CALL trd_tra( kt, cdtype, jn, jpt_trd_yad, ztrdy, pvn, ptn(:,:,:,jn) )   
    237             CALL trd_tra( kt, cdtype, jn, jpt_trd_zad, ztrdz, pwn, ptn(:,:,:,jn) )  
     235            CALL trd_tra( kt, cdtype, jn, jptra_trd_xad, ztrdx, pun, ptn(:,:,:,jn) )    
     236            CALL trd_tra( kt, cdtype, jn, jptra_trd_yad, ztrdy, pvn, ptn(:,:,:,jn) )   
     237            CALL trd_tra( kt, cdtype, jn, jptra_trd_zad, ztrdz, pwn, ptn(:,:,:,jn) )  
    238238         END IF 
    239239         !                                 ! "Poleward" heat and salt transports (contribution of upstream fluxes) 

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/TRA/traadv_ubs.F90

    r2082 r2083  
    187187         !                                 ! trend diagnostics (contribution of upstream fluxes) 
    188188         IF( l_trd ) THEN 
    189              CALL trd_tra( kt, cdtype, jn, jpt_trd_xad, zwx, pun, ptn(:,:,:,jn) ) 
    190              CALL trd_tra( kt, cdtype, jn, jpt_trd_yad, zwy, pvn, ptn(:,:,:,jn) ) 
     189             CALL trd_tra( kt, cdtype, jn, jptra_trd_xad, zwx, pun, ptn(:,:,:,jn) ) 
     190             CALL trd_tra( kt, cdtype, jn, jptra_trd_yad, zwy, pvn, ptn(:,:,:,jn) ) 
    191191         END IF 
    192192         !                                 ! "Poleward" heat and salt transports (contribution of upstream fluxes) 
    … …  
    279279               END DO 
    280280            END DO 
    281             CALL trd_tra( kt, cdtype, jn, jpt_trd_zad, zltv ) 
     281            CALL trd_tra( kt, cdtype, jn, jptra_trd_zad, zltv ) 
    282282         ENDIF 
    283283         ! 

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/TRA/tranxt.F90

    r2082 r2083  
    149149            ztrds(:,:,jk) = ( tsb(:,:,jk,jp_sal) - ztrds(:,:,jk) ) * zfact 
    150150         END DO 
    151          CALL trd_tra( kt, 'TRA', jp_tem, jpt_trd_atf, ztrdt ) 
    152          CALL trd_tra( kt, 'TRA', jp_sal, jpt_trd_atf, ztrds ) 
     151         CALL trd_tra( kt, 'TRA', jp_tem, jptra_trd_atf, ztrdt ) 
     152         CALL trd_tra( kt, 'TRA', jp_sal, jptra_trd_atf, ztrds ) 
    153153         DEALLOCATE( ztrdt )      ;     DEALLOCATE( ztrds )  
    154154      END IF 

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/istate.F90

    r2082 r2083  
    128128          
    129129         IF( ln_zps .AND. .NOT. lk_c1d )   & 
    130                           CALL zps_hde( nit000, 'TRA', tsb, gtsu, gtsv,  &    ! Partial steps: before horizontal gradient 
    131             &                                          rhd, gru , grv , jpts )      ! of t, s, rd at the last ocean level 
     130                           CALL zps_hde( nit000, jpts, tsb, gtsu, gtsv,  &    ! Partial steps: before horizontal gradient 
     131            &                                          rhd, gru , grv )      ! of t, s, rd at the last ocean level 
    132132          
    133133      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.