Changeset 1998 for branches/DEV_R1821_Rivers/NEMO/OPA_SRC/SBC/sbcmod.F90
- Timestamp:
- 2010-07-08T17:12:21+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_R1821_Rivers/NEMO/OPA_SRC/SBC/sbcmod.F90
r1938 r1998 185 185 INTEGER, INTENT(in) :: kt ! ocean time step 186 186 !!--------------------------------------------------------------------- 187 188 emp(:,:)=0.0189 emps(:,:)=0.0190 rnf(:,:)=0.0191 187 192 188 CALL iom_setkt( kt + nn_fsbc - 1 ) ! in sbc, iom_put is called every nn_fsbc time step
Note: See TracChangeset
for help on using the changeset viewer.