Changeset 3402 for branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

Timestamp:

2012-05-25T18:43:49+02:00 (12 years ago)

Author:

acc

Message:

Branch: dev_r3385_NOCS04_HAMF; #665. Stage 2 of 2012 development: suppression of emps array and introduction of sfx (salt flux) array with associated code to setup the options for embedding the seaice into the ocean

File:

• branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90 (modified) (3 diffs)

branches/2012/dev_r3385_NOCS04_HAMF/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

@@ -88 +88 @@
       !! ** Action  : - time evolution of the LIM sea-ice model
       !!              - update all sbc variables below sea-ice:
-      !!                utau, vtau, taum, wndm, qns , qsr, emp , emps
+      !!                utau, vtau, taum, wndm, qns , qsr, emp , sfx 
       !!---------------------------------------------------------------------
       INTEGER, INTENT(in) ::   kt      ! ocean time step
@@ -392 +392 @@
       DO jj = 1, jpj
          DO ji = 1, jpi
-            IF( ABS( emps(ji,jj) ) .GT. 1.0e-2 ) THEN
+            IF( ABS( sfx (ji,jj) ) .GT. 1.0e-2 ) THEN
                CALL lim_prt_state( ji, jj, 3, ' ALERTE 5 :   High salt flux ' )
                DO jl = 1, jpl
@@ -644 +644 @@
         WRITE(numout,*)
         WRITE(numout,*) ' - Salt fluxes at bottom interface ***'
-        WRITE(numout,*) ' emps       : ', emps(ki,kj)
+        WRITE(numout,*) ' sfx        : ', sfx (ki,kj)
         WRITE(numout,*) ' emp        : ', emp(ki,kj)
         WRITE(numout,*) ' fsbri      : ', fsbri(ki,kj)