Changeset 6288 for branches/NERC

Timestamp:

2016-02-04T13:53:50+01:00 (9 years ago)

Author:

jpalmier

Message:

JPALM -- 04-02-2016 -- update IDTRA air-sea flux init

Location:

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC

Files:

• IDTRA/trcsms_idtra.F90 (modified) (1 diff)
• MEDUSA/trcbio_medusa.F90 (modified) (1 diff)

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

@@ -93 +93 @@
          !
       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

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

@@ -906 +906 @@
          IF( med_diag%DMS_SIMO%dgsave ) THEN
             CALL wrk_alloc( jpi, jpj,  dms_simo2d     )
-        dms_simo2d (:,:)      = 0.0      !!
+         dms_simo2d(:,:)      = 0.0      !!
          ENDIF
          IF( med_diag%DMS_ARAN%dgsave ) THEN
             CALL wrk_alloc( jpi, jpj,   dms_aran2d    )
-        dms_aran2d (:,:)      = 0.0      !!
+         dms_aran2d(:,:)      = 0.0      !!
          ENDIF
          IF( med_diag%DMS_HALL%dgsave ) THEN