Changeset 916 for trunk/NEMO/OPA_SRC/TRA/traadv_cen2.F90
- Timestamp:
- 2008-05-07T12:03:23+02:00 (16 years ago)
- File:
-
- 1 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)
Note: See TracChangeset
for help on using the changeset viewer.