Changeset 516 for trunk/NEMO/OPA_SRC/ZDF/zdfkpp.F90

Timestamp:

2006-10-05T17:53:31+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_072 : CT : - lights modifications to ensure good control prints for the restartability & reproductibility tests

• build all ocean.output_XXXX files only if logical namelist ln_ctl is TRUE, in all case keep the initial ocean.output file (require a new namelist namctl)
• conditionning some prints using nprint parameter

File:

• trunk/NEMO/OPA_SRC/ZDF/zdfkpp.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/ZDF/zdfkpp.F90

@@ -1231 +1231 @@
          IF(ln_ctl) THEN
 #if defined key_zdfddm
-            CALL prt_ctl(tab3d_1=avt , clinfo1=' kpp  - t: ', tab3d_2=avs , clinfo2=' s: ', ovlap=1, kdim=jpk)
+            CALL prt_ctl(tab3d_1=avt , clinfo1=' kpp - t: ', tab3d_2=avs , clinfo2=' s: ', ovlap=1, kdim=jpk)
 #else
-            CALL prt_ctl(tab3d_1=avt , clinfo1=' kpp  - t: ', ovlap=1, kdim=jpk)
-#endif
-            CALL prt_ctl(tab3d_1=avmu, clinfo1='       u: ', tab3d_2=avmv , clinfo2=' v: ', ovlap=1, kdim=jpk)
+            CALL prt_ctl(tab3d_1=avt , clinfo1=' kpp - t: ', ovlap=1, kdim=jpk)
+#endif
+            CALL prt_ctl(tab3d_1=avmu, clinfo1=' kpp - u: ', mask1=umask,  &
+               &         tab3d_2=avmv, clinfo2=      ' v: ', mask2=vmask, ovlap=1, kdim=jpk)
          ENDIF