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 6387 – NEMO

Changeset 6387


Ignore:
Timestamp:
2016-03-14T16:18:13+01:00 (8 years ago)
Author:
cetlod
Message:

trunk: bugfix related to the wrong name of vertical scale factor, see ticket #1699

Location:
trunk/NEMOGCM
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/ARCH/arch-macport_osx.fcm

    r5656 r6387  
    5454%CPP               cpp-mp-4.8 
    5555%FC                mpif90  
    56 %FCFLAGS             -fdefault-real-8 -O3 -funroll-all-loops -fcray-pointer  
     56%FCFLAGS             -fdefault-real-8 -O3 -funroll-all-loops -fcray-pointer -ffree-line-length-none 
    5757%FFLAGS              %FCFLAGS 
    5858%LD                  %FC 

  • trunk/NEMOGCM/CONFIG/SHARED/field_def.xml

    r6351 r6387  
    380380      <field_group id="grid_U"   grid_ref="grid_U_2D"> 
    381381         <field id="e3u"          long_name="U-cell thickness"                                       standard_name="cell_thickness"              unit="m"          grid_ref="grid_U_3D" /> 
     382         <field id="e3u_0"        long_name="Initial U-cell thickness"                               standard_name="ref_cell_thickness"          unit="m"          grid_ref="grid_U_3D"/> 
    382383         <field id="utau"         long_name="Wind Stress along i-axis"                               standard_name="surface_downward_x_stress"   unit="N/m2"                            /> 
    383384         <field id="uoce"         long_name="ocean current along i-axis"                             standard_name="sea_water_x_velocity"        unit="m/s"        grid_ref="grid_U_3D" /> 
    … …  
    421422      <field_group id="grid_V"   grid_ref="grid_V_2D"> 
    422423         <field id="e3v"          long_name="V-cell thickness"                                       standard_name="cell_thickness"              unit="m"          grid_ref="grid_V_3D" /> 
     424         <field id="e3v_0"        long_name="Initial V-cell thickness"                               standard_name="ref_cell_thickness"          unit="m"          grid_ref="grid_V_3D"/> 
    423425         <field id="vtau"         long_name="Wind Stress along j-axis"                               standard_name="surface_downward_y_stress"   unit="N/m2"                            /> 
    424426         <field id="voce"         long_name="ocean current along j-axis"                             standard_name="sea_water_y_velocity"        unit="m/s"        grid_ref="grid_V_3D" /> 

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

    r6351 r6387  
    145145      CALL iom_put("e3v_0", e3t_0(:,:,:) ) 
    146146      ! 
    147       CALL iom_put( "e3t" , fse3t_n(:,:,:) ) 
    148       CALL iom_put( "e3u" , fse3u_n(:,:,:) ) 
    149       CALL iom_put( "e3v" , fse3v_n(:,:,:) ) 
    150       CALL iom_put( "e3w" , fse3w_n(:,:,:) ) 
     147      CALL iom_put( "e3t" , e3t_n(:,:,:) ) 
     148      CALL iom_put( "e3u" , e3u_n(:,:,:) ) 
     149      CALL iom_put( "e3v" , e3v_n(:,:,:) ) 
     150      CALL iom_put( "e3w" , e3w_n(:,:,:) ) 
    151151      IF( iom_use("e3tdef") )   & 
    152          CALL iom_put( "e3tdef"  , ( ( fse3t_n(:,:,:) - e3t_0(:,:,:) ) / e3t_0(:,:,:) * 100 * tmask(:,:,:) ) ** 2 ) 
     152         CALL iom_put( "e3tdef"  , ( ( e3t_n(:,:,:) - e3t_0(:,:,:) ) / e3t_0(:,:,:) * 100 * tmask(:,:,:) ) ** 2 ) 
    153153 
    154154      CALL iom_put( "ssh" , sshn )                 ! sea surface height 
Note: See TracChangeset for help on using the changeset viewer.