Changeset 1267

Timestamp:

2009-01-14T10:07:15+01:00 (15 years ago)

Author:

ctlod

Message:

stabilization of the sea-ice/ocean stress computation in using ub/vb before instead now fields

File:

• trunk/NEMO/OPA_SRC/SBC/sbcssm.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcssm.F90

@@ -60 +60 @@
          ENDIF
          !
-         ssu_m(:,:) = un(:,:,1)
-         ssv_m(:,:) = vn(:,:,1)
+         ssu_m(:,:) = ub(:,:,1)
+         ssv_m(:,:) = vb(:,:,1)
          sst_m(:,:) = tn(:,:,1)
          sss_m(:,:) = sn(:,:,1)
@@ -96 +96 @@
                IF(lwp) WRITE(numout,*) '~~~~~~~   mean fields initialised to instantaneous values'
                zcoef = REAL( nn_fsbc - 1, wp )
-               ssu_m(:,:) = zcoef * un(:,:,1)
-               ssv_m(:,:) = zcoef * vn(:,:,1)
+               ssu_m(:,:) = zcoef * ub(:,:,1)
+               ssv_m(:,:) = zcoef * vb(:,:,1)
                sst_m(:,:) = zcoef * tn(:,:,1)
                sss_m(:,:) = zcoef * sn(:,:,1)
@@ -114 +114 @@
          !                                                !        Cumulate at each time step        !
          !                                                ! ---------------------------------------- !
-         ssu_m(:,:) = ssu_m(:,:) + un(:,:,1)
-         ssv_m(:,:) = ssv_m(:,:) + vn(:,:,1)
+         ssu_m(:,:) = ssu_m(:,:) + ub(:,:,1)
+         ssv_m(:,:) = ssv_m(:,:) + vb(:,:,1)
          sst_m(:,:) = sst_m(:,:) + tn(:,:,1)
          sss_m(:,:) = sss_m(:,:) + sn(:,:,1)