Changeset 710 for trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90

Timestamp:

2007-10-10T17:36:03+02:00 (17 years ago)

Author:

smasson

Message:

tau(x|y) -> (u|v)tau, see ticket:7

File:

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

trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90

@@ -41 +41 @@
     !!    To be tested with a lot of procs !!!!
     !!
-    !!  level 1:  taux(:,:) * umask(:,:,1) zonal stress in N.m-2
-    !!  level 2:  tauy(:,:) * vmask(:,:,1) meridional stress in N. m-2
+    !!  level 1:  utau(:,:) * umask(:,:,1) zonal stress in N.m-2
+    !!  level 2:  vtau(:,:) * vmask(:,:,1) meridional stress in N. m-2
     !!  level 3:   qt  (:,:)               total heat flux (W/m2)
     !!  level 4:   emp (:,:)               E-P flux (mm/day)
@@ -167 +167 @@
        sm(:,:,:)=sm(:,:,:) + sn (:,:,:)
        !
-       fsel(:,:,1 ) = fsel(:,:,1 ) + taux(:,:) * umask(:,:,1)
-       fsel(:,:,2 ) = fsel(:,:,2 ) + tauy(:,:) * vmask(:,:,1)
+       fsel(:,:,1 ) = fsel(:,:,1 ) + utau(:,:) * umask(:,:,1)
+       fsel(:,:,2 ) = fsel(:,:,2 ) + vtau(:,:) * vmask(:,:,1)
        fsel(:,:,3 ) = fsel(:,:,3 ) + qt  (:,:) 
        fsel(:,:,4 ) = fsel(:,:,4 ) + emp (:,:)
@@ -231 +231 @@
           fsel(:,:,20)= spgv(:,:)
 #endif
-          ! mask mean field with tmask except taux tauy (1,2)
+          ! mask mean field with tmask except utau vtau (1,2)
           DO jk=3,inbsel
             fsel(:,:,jk)=fsel(:,:,jk)*tmask(:,:,1)
@@ -256 +256 @@
           fsel(:,:,:) = 0._wp
           !
-          fsel(:,:,1 ) = taux(:,:) * umask(:,:,1)
-          fsel(:,:,2 ) = tauy(:,:) * vmask(:,:,1)
+          fsel(:,:,1 ) = utau(:,:) * umask(:,:,1)
+          fsel(:,:,2 ) = vtau(:,:) * vmask(:,:,1)
           fsel(:,:,3 ) = qt  (:,:) * tmask(:,:,1)
           fsel(:,:,4 ) = emp (:,:) * tmask(:,:,1)