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

Timestamp:

2016-07-20T14:54:06+02:00 (8 years ago)

Author:

jpalmier

Message:

JPALM -- 20-07-2016 -- adapt dust conversion to SI dust-dep units

-- correct idtra negative values

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90 (modified) (1 diff)

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

@@ -133 +133 @@
                DO ji = 2,jpim1
             
-               !  IF (trn(ji,jj,jk,jn) > 0.0) THEN
+                 IF (trn(ji,jj,jk,jn) > 0.0) THEN
                     WTEMP = trn(ji,jj,jk,jn) * (1. - FDEC )
                     tra(ji,jj,jk,jn) = (tra(ji,jj,jk,jn) - WTEMP/rdt ) * &
                                      tmask(ji,jj,jk)
-               !  ENDIF 
+                 ELSE
+                    trn(ji,jj,jk,jn) = 0.0
+                    tra(ji,jj,jk,jn) = 0.0
+                 ENDIF 
               ENDDO 
             ENDDO