Changeset 4341 for branches

Timestamp:

2014-01-09T15:24:38+01:00 (10 years ago)

Author:

acc

Message:

Branch dev_MERGE_2013. Bug fix for #1211; addition of missing definitions to field_def.xml. key_vvl now working again with key_iomput

Location:

branches/2013/dev_MERGE_2013/NEMOGCM

Files:

• CONFIG/SHARED/field_def.xml (modified) (1 diff)
• NEMO/OPA_SRC/DOM/domvvl.F90 (modified) (1 diff)

branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/SHARED/field_def.xml

@@ -49 +49 @@
          <!-- variables available with key_diaar5 -->
          <field id="botpres"      long_name="Pressure at sea floor"                     unit="dbar"                     />
+         <!-- variables available with key_diaar5/key_vvl -->
          <field id="cellthc"      long_name="Cell thickness"                            unit="m"    grid_ref="grid_T_3D"/>
+         <!-- variables available with key_vvl -->
+         <field id="tpt_dep"      long_name="T-point depth"                             unit="m"    grid_ref="grid_T_3D"/>
+         <field id="e3tdef"       long_name="T-cell thickness deformation"              unit="%"    grid_ref="grid_T_3D"/>
      </field_group>
 

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

@@ -617 +617 @@
       ! =============
       z_e3t_def(:,:,:) = ( ( fse3t_n(:,:,:) - e3t_0(:,:,:) ) / e3t_0(:,:,:) * 100 * tmask(:,:,:) ) ** 2
-      CALL iom_put( "e3t_n"  , fse3t_n  (:,:,:) )
-      CALL iom_put( "dept_n" , fsde3w_n (:,:,:) )
-      CALL iom_put( "e3tdef" , z_e3t_def(:,:,:) )
+      CALL iom_put( "cellthc" , fse3t_n  (:,:,:) )
+      CALL iom_put( "tpt_dep" , fsde3w_n (:,:,:) )
+      CALL iom_put( "e3tdef"  , z_e3t_def(:,:,:) )
 
       ! write restart file