Changeset 1168 for trunk/NEMO/OPA_SRC/SBC/sbcfwb.F90
- Timestamp:
- 2008-08-11T12:21:06+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcfwb.F90
r1156 r1168 53 53 !! ** Method : several ways depending on kn_fwb 54 54 !! =0 no control 55 !! =1 annual global mean corrected from previous year56 !! =2 global mean of emp set to zero at each nn_fsbc time step55 !! =1 global mean of emp set to zero at each nn_fsbc time step 56 !! =2 annual global mean corrected from previous year 57 57 !!---------------------------------------------------------------------- 58 58 INTEGER, INTENT( in ) :: kt ! ocean time-step index … … 125 125 ! correct the freshwater fluxes 126 126 IF( MOD( kt-1, kn_fsbc ) == 0 ) THEN 127 emp (:,:) = emp (:,:) -empold128 emps(:,:) = emps(:,:) -empold127 emp (:,:) = emp (:,:) + empold 128 emps(:,:) = emps(:,:) + empold 129 129 ENDIF 130 130 !
Note: See TracChangeset
for help on using the changeset viewer.