Changeset 3704


Ignore:
Timestamp:
2012-11-28T11:08:28+01:00 (8 years ago)
Author:
smasson
Message:

dev_MERGE_2012: add surface currents outputs

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r3632 r3704  
    149149      CALL iom_put( "sss2"   , tsn(:,:,1,jp_sal) * tsn(:,:,1,jp_sal) )    ! square of sea surface salinity 
    150150      CALL iom_put( "uoce"   , un                                    )    ! i-current       
     151      CALL iom_put( "suoce"  , un(:,:,1)                             )    ! surface i-current       
    151152      CALL iom_put( "voce"   , vn                                    )    ! j-current 
    152        
     153      CALL iom_put( "svoce"  , vn(:,:,1)                             )    ! surface j-current 
     154  
    153155      CALL iom_put( "avt"    , avt                                   )    ! T vert. eddy diff. coef. 
    154156      CALL iom_put( "avm"    , avmu                                  )    ! T vert. eddy visc. coef. 
     
    494496# if defined key_lim3 
    495497         Must be adapted to LIM3 
    496 # else 
     498# endif  
     499# if defined key_lim2 
    497500         CALL histdef( nid_T,"soicetem" , "Ice Surface Temperature"            , "K"      ,   &  ! tn_ice 
    498501            &          jpi, jpj, nh_T, 1  , 1, 1  , -99 , 32, clop, zsto, zout ) 
     
    664667      CALL histwrite( nid_T, "soicetem", it, tn_ice        , ndim_hT, ndex_hT )   ! surf. ice temperature 
    665668      CALL histwrite( nid_T, "soicealb", it, alb_ice       , ndim_hT, ndex_hT )   ! ice albedo 
    666 # else 
     669# endif 
     670# if defined key_lim2 
    667671      CALL histwrite( nid_T, "soicetem", it, tn_ice(:,:,1) , ndim_hT, ndex_hT )   ! surf. ice temperature 
    668672      CALL histwrite( nid_T, "soicealb", it, alb_ice(:,:,1), ndim_hT, ndex_hT )   ! ice albedo 
Note: See TracChangeset for help on using the changeset viewer.