New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6599 – NEMO

Changeset 6599


Ignore:
Timestamp:
2016-05-23T14:29:07+02:00 (8 years ago)
Author:
rfurner
Message:

bug fixes to last commit

Location:
branches/UKMO/dev_r5518_Surge_Modelling/NEMOGCM
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • branches/UKMO/dev_r5518_Surge_Modelling/NEMOGCM/CONFIG/AMM7_SURGE/EXP00/field_def.xml

    r6274 r6599  
    188188         <field id="taum"         long_name="wind stress module"                    standard_name="magnitude_of_surface_downward_stress"                                 unit="N/m2"                           /> 
    189189         <field id="wspd"         long_name="wind speed module"                     standard_name="wind_speed"                                                           unit="m/s"                            /> 
     190         <field id="uwnd"         long_name="u component of wind"                   standard_name="wind_u_component"                                                     unit="m/s"                            /> 
     191         <field id="vwnd"         long_name="v component of wind"                   standard_name="wind_v_component"                                                     unit="m/s"                            /> 
    190192          
    191193         <!-- * variable relative to atmospheric pressure forcing : available with ln_apr_dyn --> 

  • branches/UKMO/dev_r5518_Surge_Modelling/NEMOGCM/CONFIG/AMM7_SURGE/EXP00/iodef.xml

    r6592 r6599  
    3737        <file id="file6" name_suffix="_grid_V" description="ocean V grid variables" > 
    3838          <field field_ref="ssv"          name="vos"     long_name="sea_water_surface_y_velocity"  operation="instant" /> 
    39           <field field_ref="vwnd"         name="uwnd"    long_name="v_component_of_wind"           operation="instant" /> 
     39          <field field_ref="vwnd"         name="vwnd"    long_name="v_component_of_wind"           operation="instant" /> 
    4040        </file> 
    4141 

  • branches/UKMO/dev_r5518_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90

    r6592 r6599  
    102102   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   utau   , utau_b   !: sea surface i-stress (ocean referential)     [N/m2] 
    103103   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   vtau   , vtau_b   !: sea surface j-stress (ocean referential)     [N/m2] 
    104    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   uwnd              !: wind speed i-component                       [m2] 
    105    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   vwnd              !: wind speed j-component                       [m2] 
     104   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   uwnd              !: wind speed i-component                       [m/s] 
     105   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   vwnd              !: wind speed j-component                       [m/s] 
    106106   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   taum              !: module of sea surface stress (at T-point)    [N/m2]  
    107107   !! wndm is used onmpute surface gases exchanges in ice-free ocean or leads 
    … …  
    160160      ! 
    161161      ALLOCATE( utau(jpi,jpj) , utau_b(jpi,jpj) , taum(jpi,jpj) ,     & 
    162          &      vtau(jpi,jpj) , vtau_b(jpi,jpj) , wndm(jpi,jpj) , STAT=ierr(1) )  
     162         &      vtau(jpi,jpj) , vtau_b(jpi,jpj) , wndm(jpi,jpj) ,     & 
     163         &      uwnd(jpi,jpj) , vwnd(jpi,jpj)   , STAT=ierr(1) )  
    163164         ! 
    164165      ALLOCATE( qns_tot(jpi,jpj) , qns  (jpi,jpj) , qns_b(jpi,jpj),        & 
Note: See TracChangeset for help on using the changeset viewer.