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

Timestamp:

2008-06-04T20:44:44+02:00 (16 years ago)

Author:

rblod

Message:

ctlopn with dimg diagnostics and additonnal stuff related to dimg

File:

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

trunk/NEMO/OPA_SRC/DIA/diawri_dimg.h90

@@ -170 +170 @@
        fsel(:,:,3 ) = fsel(:,:,3 ) + qsr (:,:) + qns  (:,:) 
        fsel(:,:,4 ) = fsel(:,:,4 ) + emp (:,:)
-       fsel(:,:,5 ) = fsel(:,:,5 ) + tb  (:,:,1) - sst(:,:)
+       fsel(:,:,5 ) = fsel(:,:,5 ) + tb  (:,:,1) - sf_sst(1)%fnow(:,:)
 #if ! defined key_dynspg_rl
        fsel(:,:,6 ) = fsel(:,:,6 ) + sshn(:,:)    ! SSH
@@ -182 +182 @@
        fsel(:,:,11) = fsel(:,:,11) + hmlp(:,:)
        fsel(:,:,12) = fsel(:,:,12) + fr_i(:,:)
-       fsel(:,:,13) = fsel(:,:,13) + sst(:,:)
+       fsel(:,:,13) = fsel(:,:,13) + sf_sst(1)%fnow(:,:)
        !        fsel(:,:,14) = fsel(:,:,14) + qct(:,:)
        !        fsel(:,:,15) = fsel(:,:,15) + fbt(:,:)
@@ -249 +249 @@
           fsel(:,:,1 ) = utau(:,:) * umask(:,:,1)
           fsel(:,:,2 ) = vtau(:,:) * vmask(:,:,1)
-          fsel(:,:,3 ) = (qsr (:,:) + qnr (:,:)) * tmask(:,:,1)
+          fsel(:,:,3 ) = (qsr (:,:) + qns (:,:)) * tmask(:,:,1)
           fsel(:,:,4 ) = emp (:,:) * tmask(:,:,1)
-          fsel(:,:,5 ) = (tb  (:,:,1) -sst(:,:)) *tmask(:,:,1)
+          fsel(:,:,5 ) = (tb  (:,:,1) - sf_sst(1)%fnow(:,:) ) *tmask(:,:,1)
 
 #if ! defined key_dynspg_rl
@@ -264 +264 @@
           fsel(:,:,11) = hmlp(:,:) * tmask(:,:,1)
           fsel(:,:,12) = fr_i(:,:) * tmask(:,:,1)
-          fsel(:,:,13) =  sst(:,:)  
+          fsel(:,:,13) = sf_sst(1)%fnow(:,:)
           !         fsel(:,:,14) =  qct(:,:)
           !         fsel(:,:,15) =  fbt(:,:)