Changeset 2970 for branches/2011/dev_r2739_LOCEAN8_ZTC/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

Timestamp:

2011-10-20T18:21:47+02:00 (13 years ago)

Author:

mlelod

Message:

thickness weighted outputs and additional outputs, see ticket/863?

File:

• branches/2011/dev_r2739_LOCEAN8_ZTC/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90 (modified) (2 diffs)

branches/2011/dev_r2739_LOCEAN8_ZTC/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

@@ -209 +209 @@
       !! Reference  : Leclair, M., and G. Madec, 2011, Ocean Modelling.
       !!----------------------------------------------------------------------
-      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released, iwrk_in_use, iwrk_not_released
+      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
       USE oce     , ONLY:   ze3t    => ta         ! ua used as workspace
       USE wrk_nemo, ONLY:   zht     => wrk_2d_1   ! 2D REAL workspace
@@ -521 +521 @@
       z_e3t_def(:,:,:) = ( ( fse3t_n(:,:,:) - fse3t_0(:,:,:) ) / fse3t_0(:,:,:) * 100 * tmask(:,:,:) ) ** 2
       CALL iom_put( "e3t_n"  , fse3t_n  (:,:,:) )
-      CALL iom_put( "dept"   , fsdept_n (:,:,:) )
+      CALL iom_put( "dept_n" , fsdept_n (:,:,:) )
       CALL iom_put( "e3tdef" , z_e3t_def(:,:,:) )