Changeset 916 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2008-05-07T12:03:23+02:00 (16 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/traadv_cen2.F90
r888 r916 27 27 USE trabbl ! advective term in the BBL 28 28 USE ocfzpt ! 29 USE sbcmod ! surface Boundary Condition 29 30 USE sbcrnf ! river runoffs 30 31 USE in_out_manager ! I/O manager … … 147 148 ! 148 149 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 ! 149 154 IF( cp_cfg == "orca" ) CALL ups_orca_set ! set mixed Upstream/centered scheme near some straits 150 155 ! ! and in closed seas (orca2 and orca4 only) -
trunk/NEMO/OPA_SRC/step.F90
r911 r916 223 223 ENDIF 224 224 225 IF( nn_runoff /=0 ) THEN! increase diffusivity at rivers mouths225 IF( ln_rnf ) THEN ! increase diffusivity at rivers mouths 226 226 DO jk = 2, nkrnf ; avt(:,:,jk) = avt(:,:,jk) + rn_avt_rnf * rnfmsk(:,:) ; END DO 227 227 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.