Changeset 4341 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

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

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90 (modified) (1 diff)

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