Changeset 6466 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA

Timestamp:

2016-04-11T17:54:56+02:00 (8 years ago)

Author:

jpalmier

Message:

JPALM -- 11-04-2016 -- add dust deposition input through namelist

-- relax time to IDTRA surface flux

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90 (modified) (3 diffs)

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90

@@ -74 +74 @@
       !!              
       !!----------------------------------------------------------------------
-      INTEGER, INTENT( in ) ::   kt    ! ocean time-step index
-      !!
-      INTEGER ::   ji, jj, jn, jl, jk
+      INTEGER, INTENT( in )  ::   kt    ! ocean time-step index
+      !!
+      INTEGER                ::   ji, jj, jn, jl, jk
+      REAL(wp)               ::   rlx   !! relaxation time (1 day)
       !!----------------------------------------------------------------------
       !
@@ -92 +93 @@
 
          !
-      inv_idtra(:,:,:) = 0.0                                        !! init the inventory
-      qtr_idtra(:,:,:) = 0.0                                        !! init the air-sea flux
+      rlx = 1/(60 * 60 * 24)                                   !! relaxation time (1 day)
+      inv_idtra(:,:,:) = 0.0                                   !! init the inventory
+      qtr_idtra(:,:,:) = 0.0                                   !! init the air-sea flux
       DO jl = 1, jp_idtra
          jn = jp_idtra0 + jl - 1
@@ -103 +105 @@
 
          !! First, a crude version. will be much inproved later.
-             qtr_idtra(ji,jj,jl)  = (1. - trb(ji,jj,1,jn)) * tmask(ji,jj,1) *   & 
+             qtr_idtra(ji,jj,jl)  = rlx * (1. - trb(ji,jj,1,jn)) * tmask(ji,jj,1) *   & 
                                   fse3t(ji,jj,1) / rdt             !! Air-sea Flux
+
+           !! DEBUG-TEST : Set flux equal to 0, see if it induces the pb we see in the MED  
+           !!  qtr_idtra(ji,jj,jl)  = 0.0
            ENDDO
          ENDDO