Changeset 6387 for trunk/NEMOGCM
- Timestamp:
- 2016-03-14T16:18:13+01:00 (8 years ago)
- Location:
- trunk/NEMOGCM
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/ARCH/arch-macport_osx.fcm
r5656 r6387 54 54 %CPP cpp-mp-4.8 55 55 %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 57 57 %FFLAGS %FCFLAGS 58 58 %LD %FC -
trunk/NEMOGCM/CONFIG/SHARED/field_def.xml
r6351 r6387 380 380 <field_group id="grid_U" grid_ref="grid_U_2D"> 381 381 <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"/> 382 383 <field id="utau" long_name="Wind Stress along i-axis" standard_name="surface_downward_x_stress" unit="N/m2" /> 383 384 <field id="uoce" long_name="ocean current along i-axis" standard_name="sea_water_x_velocity" unit="m/s" grid_ref="grid_U_3D" /> … … 421 422 <field_group id="grid_V" grid_ref="grid_V_2D"> 422 423 <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"/> 423 425 <field id="vtau" long_name="Wind Stress along j-axis" standard_name="surface_downward_y_stress" unit="N/m2" /> 424 426 <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 145 145 CALL iom_put("e3v_0", e3t_0(:,:,:) ) 146 146 ! 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(:,:,:) ) 151 151 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 ) 153 153 154 154 CALL iom_put( "ssh" , sshn ) ! sea surface height
Note: See TracChangeset
for help on using the changeset viewer.