Changeset 3704

Timestamp:

2012-11-28T11:08:28+01:00 (11 years ago)

Author:

smasson

Message:

dev_MERGE_2012: add surface currents outputs

File:

• branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (3 diffs)

branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

@@ -149 +149 @@
       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.
       CALL iom_put( "avm"    , avmu                                  )    ! T vert. eddy visc. coef.
@@ -494 +496 @@
 # if defined key_lim3
          Must be adapted to LIM3
-# else
+# endif 
+# if defined key_lim2
          CALL histdef( nid_T,"soicetem" , "Ice Surface Temperature"            , "K"      ,   &  ! tn_ice
             &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout )
@@ -664 +667 @@
       CALL histwrite( nid_T, "soicetem", it, tn_ice        , ndim_hT, ndex_hT )   ! surf. ice temperature
       CALL histwrite( nid_T, "soicealb", it, alb_ice       , ndim_hT, ndex_hT )   ! ice albedo
-# else
+# endif
+# if defined key_lim2
       CALL histwrite( nid_T, "soicetem", it, tn_ice(:,:,1) , ndim_hT, ndex_hT )   ! surf. ice temperature
       CALL histwrite( nid_T, "soicealb", it, alb_ice(:,:,1), ndim_hT, ndex_hT )   ! ice albedo