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 361 for trunk/NEMO – NEMO

Changeset 361 for trunk/NEMO


Ignore:
Timestamp:
2005-12-21T11:58:28+01:00 (19 years ago)
Author:
opalod
Message:

nemo_v1_update_033 : RB + CT : Add new surface pressure gradient algorithms

Location:
trunk/NEMO
Files:
1 added
2 deleted
6 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OFF_SRC/DOM/dom_oce.F90

    r343 r361  
    4848      npse, npsw,      &  !: index of south east and south west processor 
    4949      nbne, nbnw,      &  !: logical of north east & north west processor 
    50       nbse, nbsw          !: logical of south east & south west processor 
     50      nbse, nbsw,      &  !: logical of south east & south west processor 
     51      nidom 
    5152 
    5253   INTEGER, PUBLIC, DIMENSION(jpi) ::   &   !: 
  • trunk/NEMO/TOP_SRC/TRP/trcadv_cen2.F90

    r349 r361  
    273273 
    274274         ! Surface value 
    275          IF( lk_dynspg_fsc ) THEN       ! free surface-constant volume 
     275         IF ( lk_dynspg_rl ) THEN       ! rigid lid : flux set to zero 
     276            zwx(:,:, 1 ) = 0.e0   
     277         ELSE                           ! free surface-constant volume 
    276278            zwx(:,:, 1 ) = zwn(:,:,1) * trn(:,:,1,jn) 
    277          ELSE                           ! rigid lid : flux set to zero 
    278             zwx(:,:, 1 ) = 0.e0   
    279279         ENDIF 
    280280 
  • trunk/NEMO/TOP_SRC/TRP/trcadv_muscl.F90

    r349 r361  
    293293         END DO 
    294294         ! surface values 
    295          IF( lk_dynspg_fsc .OR. lk_dynspg_fsc_tsk ) THEN        ! free surface-constant volume 
     295         IF( lk_dynspg_rl ) THEN        ! rigid lid : flux set to zero 
     296            zt1(:,:, 1 ) = 0.e0 
     297         ELSE                           ! free surface 
    296298            zt1(:,:, 1 ) = zwn(:,:,1) * trb(:,:,1,jn) 
    297          ELSE                                                   ! rigid lid : flux set to zero 
    298             zt1(:,:, 1 ) = 0.e0 
    299299         ENDIF 
    300300 
  • trunk/NEMO/TOP_SRC/TRP/trcadv_muscl2.F90

    r349 r361  
    357357 
    358358         ! surface values 
    359          IF( lk_dynspg_fsc .OR. lk_dynspg_fsc_tsk ) THEN        ! free surface-constant volume 
     359         IF( lk_dynspg_rl ) THEN        ! rigid lid : flux set to zero 
     360            zt1(:,:, 1 ) = 0.e0 
     361         ELSE                           ! free surface 
    360362            zt1(:,:, 1 ) = zwn(:,:,1) * trb(:,:,1,jn) 
    361          ELSE                                                   ! rigid lid : flux set to zero 
    362             zt1(:,:, 1 ) = 0.e0 
    363363         ENDIF 
    364364 
  • trunk/NEMO/TOP_SRC/TRP/trcadv_smolar.F90

    r349 r361  
    186186 
    187187         ! Surface value 
    188          IF( lk_dynspg_fsc .OR. lk_dynspg_fsc_tsk ) THEN        ! free surface-constant volume 
     188         IF( lk_dynspg_rl ) THEN        ! rigid lid : flux set to zero 
     189            zkz(:,:, 1 ) = 0.e0   
     190         ELSE                           ! free surface 
    189191            zkz(:,:, 1 ) = zwn(:,:,1) * trn(:,:,1,jn) * tmask(ji,jj,1) 
    190          ELSE                                                   ! rigid lid : flux set to zero 
    191             zkz(:,:, 1 ) = 0.e0   
    192192         ENDIF 
    193193 
  • trunk/NEMO/TOP_SRC/TRP/trcadv_tvd.F90

    r349 r361  
    135135         ! upstream tracer flux in the k direction 
    136136         ! Surface value 
    137          IF( lk_dynspg_fsc .OR. lk_dynspg_fsc_tsk ) THEN   ! free surface-constant volume 
     137         IF( lk_dynspg_rl ) THEN   ! rigid lid : flux set to zero 
     138            ztw(:,:,1) = 0.e0 
     139         ELSE                      ! free surface  
    138140            DO jj = 1, jpj 
    139141               DO ji = 1, jpi 
     
    142144               END DO 
    143145            END DO 
    144          ELSE                                              ! rigid lid : flux set to zero 
    145             ztw(:,:,1) = 0.e0 
    146146         ENDIF 
    147147 
Note: See TracChangeset for help on using the changeset viewer.