Changeset 34 for trunk


Ignore:
Timestamp:
03/16/12 10:46:59 (12 years ago)
Author:
smasson
Message:

add iomput for surface currents

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r7 r34  
    145145      CALL iom_put( "sss2"   , tsn(:,:,1,jp_sal) * tsn(:,:,1,jp_sal) )    ! square of sea surface salinity 
    146146      CALL iom_put( "uoce"   , un                                    )    ! i-current       
     147      CALL iom_put( "suoce"  , un(:,:,1)                             )    ! surface i-current       
    147148      CALL iom_put( "voce"   , vn                                    )    ! j-current 
     149      CALL iom_put( "svoce"  , vn(:,:,1)                             )    ! surface j-current 
    148150       
    149151      CALL iom_put( "avt"    , avt                                   )    ! T vert. eddy diff. coef. 
Note: See TracChangeset for help on using the changeset viewer.