Changeset 44 for vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

Timestamp:

08/31/12 15:41:37 (12 years ago)

Author:

cholod

Message:

Load NEMO_TMP into vendor/nemo/current.

File:

• vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (1 diff)

vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

@@ -145 +145 @@
       CALL iom_put( "sss2"   , tsn(:,:,1,jp_sal) * tsn(:,:,1,jp_sal) )    ! square of sea surface salinity
       CALL iom_put( "uoce"   , un                                    )    ! i-current      
+      CALL iom_put( "suoce"  , un(:,:,1)                             )    ! surface i-current      
       CALL iom_put( "voce"   , vn                                    )    ! j-current
+      CALL iom_put( "svoce"  , vn(:,:,1)                             )    ! surface j-current
       
       CALL iom_put( "avt"    , avt                                   )    ! T vert. eddy diff. coef.