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

Changeset 916 for trunk/NEMO/OPA_SRC


Ignore:
Timestamp:
2008-05-07T12:03:23+02:00 (16 years ago)
Author:
rblod
Message:

No runoff case for centered scheme, see ticket #132

Location:
trunk/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/TRA/traadv_cen2.F90

    r888 r916  
    2727   USE trabbl          ! advective term in the BBL 
    2828   USE ocfzpt          ! 
     29   USE sbcmod          ! surface Boundary Condition 
    2930   USE sbcrnf          ! river runoffs 
    3031   USE in_out_manager  ! I/O manager 
     
    147148         ! 
    148149         upsmsk(:,:) = 0.e0                              ! not upstream by default 
     150         IF( .NOT. ln_rnf ) THEN                         ! no runoff  
     151            rnfmsk(:,:) = 0.e0 ; rnfmsk_z(:) = 0.e0 
     152         ENDIF 
     153         !  
    149154         IF( cp_cfg == "orca" )   CALL ups_orca_set      ! set mixed Upstream/centered scheme near some straits 
    150155         !                                               ! and in closed seas (orca2 and orca4 only) 
  • trunk/NEMO/OPA_SRC/step.F90

    r911 r916  
    223223      ENDIF 
    224224 
    225       IF( nn_runoff /=0 ) THEN                              ! increase diffusivity at rivers mouths 
     225      IF( ln_rnf ) THEN                                     ! increase diffusivity at rivers mouths 
    226226         DO jk = 2, nkrnf   ;   avt(:,:,jk) = avt(:,:,jk) + rn_avt_rnf * rnfmsk(:,:)   ;   END DO 
    227227      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.