Changeset 258 for trunk/NEMO/LIM_SRC/limflx.F90

Timestamp:

2005-09-02T17:48:36+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_004 : CT : Integration of the control print option for debugging work

File:

• trunk/NEMO/LIM_SRC/limflx.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC/limflx.F90

@@ -11 +11 @@
    !!----------------------------------------------------------------------
    !! * Modules used
-   USE par_oce
-   USE phycst
-   USE ocfzpt
-   USE ice_oce
-   USE flx_oce
-   USE ice
-   USE flxblk
-   USE lbclnk
-   USE in_out_manager
-   USE albedo
+   USE par_oce          ! ocean parameters
+   USE phycst           ! physical constants
+   USE ocfzpt           ! surface ocean freezing point
+   USE ice_oce          ! sea-ice variable
+   USE flx_oce          ! sea-ice/ocean forcings variables
+   USE ice              ! LIM sea-ice variables
+   USE flxblk           ! bulk formulea
+   USE lbclnk           ! ocean lateral boundary condition
+   USE in_out_manager   ! I/O manager
+   USE albedo           ! albedo parameters
+   USE prtctl           ! Print control
 
    IMPLICIT NONE
@@ -195 +196 @@
 #endif
 
-      IF(l_ctl) THEN
-         WRITE(numout,*) ' lim_flx  '
-         WRITE(numout,*) ' fsolar ', SUM( fsolar(2:nictl,2:njctl) ), ' fnsolar', SUM( fnsolar(2:nictl,2:njctl) )
-         WRITE(numout,*) ' fmass  ', SUM( fmass (2:nictl,2:njctl) ), ' fsalt  ', SUM( fsalt  (2:nictl,2:njctl) )
-         WRITE(numout,*) ' ftaux  ', SUM( ftaux (2:nictl,2:njctl) ), ' ftauy  ', SUM( ftauy  (2:nictl,2:njctl) )
-         WRITE(numout,*) ' freeze ', SUM( freeze(2:nictl,2:njctl) ), ' tn_ice ', SUM( tn_ice (2:nictl,2:njctl) )
+      IF(ln_ctl) THEN
+         CALL prt_ctl(tab2d_1=fsolar, clinfo1=' lim_flx: fsolar : ', tab2d_2=fnsolar, clinfo2=' fnsolar : ')
+         CALL prt_ctl(tab2d_1=fmass , clinfo1=' lim_flx: fmass  : ', tab2d_2=fsalt  , clinfo2=' fsalt   : ')
+         CALL prt_ctl(tab2d_1=ftaux , clinfo1=' lim_flx: ftaux  : ', tab2d_2=ftauy  , clinfo2=' ftauy   : ')
+         CALL prt_ctl(tab2d_1=freeze, clinfo1=' lim_flx: freeze : ', tab2d_2=tn_ice , clinfo2=' tn_ice  : ')
       ENDIF