Changeset 320 for trunk/NEMO/OPA_SRC

Timestamp:

2005-09-30T19:04:13+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_013:RB: replace q+qsr by qt for total heat flux

File:

• trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90

@@ -43 +43 @@
     !!  level 1:  taux(:,:) * umask(:,:,1) zonal stress in N.m-2
     !!  level 2:  tauy(:,:) * vmask(:,:,1) meridional stress in N. m-2
-    !!  level 3:   q   (:,:) + qsr(:,:)     total heat flux (W/m2)
+    !!  level 3:   qt (:,:)                total heat flux (W/m2)
     !!  level 4:   emp (:,:)             E-P flux (mm/day)
     !!  level 5:  tb  (:,:,1)-sst            model SST -forcing sst (degree C)
@@ -160 +160 @@
        fsel(:,:,1 ) = fsel(:,:,1 ) + taux(:,:) * umask(:,:,1)
        fsel(:,:,2 ) = fsel(:,:,2 ) + tauy(:,:) * vmask(:,:,1)
-       fsel(:,:,3 ) = fsel(:,:,3 ) + q   (:,:) + qsr(:,:)
+       fsel(:,:,3 ) = fsel(:,:,3 ) + qt  (:,:) 
        fsel(:,:,4 ) = fsel(:,:,4 ) + emp (:,:)
        fsel(:,:,5 ) = fsel(:,:,5 ) + tb  (:,:,1) - sst(:,:)
@@ -236 +236 @@
           fsel(:,:,1 ) = taux(:,:) * umask(:,:,1)
           fsel(:,:,2 ) = tauy(:,:) * vmask(:,:,1)
-          fsel(:,:,3 ) = q   (:,:) + qsr(:,:)
+          fsel(:,:,3 ) = qt  (:,:) 
           fsel(:,:,4 ) = emp (:,:)
           fsel(:,:,5 ) = (tb  (:,:,1) -sst(:,:)) *tmask(:,:,1)