Changeset 472 for trunk/NEMO/OPA_SRC/in_out_manager.F90

Timestamp:

2006-05-11T16:40:51+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_060: SM: IOM + 301 levels + CORE + begining of ctl_stop

File:

• trunk/NEMO/OPA_SRC/in_out_manager.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/in_out_manager.F90

@@ -6 +6 @@
 
    PUBLIC
-   !!----------------------------------------------------------------------
-   !!  OPA 9.0 , LOCEAN-IPSL (2005) 
-   !! $Header$ 
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
-   !!----------------------------------------------------------------------
 
    !!----------------------------------------------------------------------
@@ -32 +27 @@
       ninist = 0        ,    &  !: initial state output flag (0/1)
       nbench = 0                !: benchmark parameter (0/1)
-   !!----------------------------------------------------------------------
-   !!                          Run control  
-   !!----------------------------------------------------------------------
    
-   INTEGER ::                &  !:
-      nstop = 0 ,            &  !: e r r o r  flag (=number of reason for a
-      !                         !                   prematurely stop the run)
-      nwarn = 0                 !: w a r n i n g  flag (=number of warning
-      !                         !                       found during the run)
-
-   
-   CHARACTER (len=64) ::        &                                                    !:
-      cform_err="(/,' ===>>> : E R R O R',     /,'         ===========',/)"    ,   & !:
-      cform_war="(/,' ===>>> : W A R N I N G', /,'         ===============',/)"      !:
    !!----------------------------------------------------------------------
    !! output monitoring
    !! -----------------------------------
-
-   LOGICAL ::   &               !:
-      lwp                ,   &  !: boolean : true on the 1st processor only
-      lsp_area = .TRUE.         !: to make a control print over a specific area
 
    INTEGER ::                &  !:
@@ -80 +58 @@
       numisp     = 41 ,      &  !: logical unit for island statistics
       numgap     = 45 ,      &  !: logical unit for differences diagnostic
-      numwrs     = 46 ,      &  !: logical unit for output restart
-      numtdt     = 62 ,      &  !: logical unit for data temperature
-      numsdt     = 63 ,      &  !: logical unit for data salinity
-      numrnf     = 64 ,      &  !: logical unit for runoff data
-      numwso     = 71 ,      &  !: logical unit for 2d output write
-      numwvo     = 72 ,      &  !: logical unit for 3d output write
-      numsst     = 65 ,      &  !: logical unit for surface temperature data
-      numsss     = 66 ,      &  !: logical unit for surface salinity data
       numbol     = 67 ,      &  !: logical unit for "bol" diagnostics
       numptr     = 68 ,      &  !: logical unit for Poleward TRansports
-      numflo     = 69 ,      &  !: logical unit for drifting floats
+      numflo     = 69           !: logical unit for drifting floats
       !                         !: * coupled units
-      numlhf     = 71 ,      &  !: unit to transfer fluxes
-      numlws     = 72 ,      &  !: unit to transfer stress
-      numlts     = 73 ,      &  !: unit to transfer sst
-      numlic     = 74           !: unit to transfer ice cover
+
+   !!----------------------------------------------------------------------
+   !!                          Run control  
+   !!----------------------------------------------------------------------
+   
+   INTEGER ::                &  !:
+      nstop = 0 ,            &  !: e r r o r  flag (=number of reason for a
+      !                         !                   prematurely stop the run)
+      nwarn = 0                 !: w a r n i n g  flag (=number of warning
+      !                         !                       found during the run)
+
+   
+   CHARACTER(LEN=100) :: ctmp1, ctmp2, ctmp3    ! temporary character
+   CHARACTER (len=64) ::        &                                                    !:
+      cform_err="(/,' ===>>> : E R R O R',     /,'         ===========',/)"    ,   & !:
+      cform_war="(/,' ===>>> : W A R N I N G', /,'         ===============',/)"      !:
+   LOGICAL ::   &               !:
+      lwp                ,   &  !: boolean : true on the 1st processor only
+      lsp_area = .TRUE.         !: to make a control print over a specific area
+   !!----------------------------------------------------------------------
+   !!  OPA 9.0 , LOCEAN-IPSL (2005) 
+   !! $Header$ 
+   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
+   !!----------------------------------------------------------------------
 
 
-   !! Contral/debugging
-   !! -----------------
-   REAL(wp) ::               &  !:
-      u_ctl, v_ctl,          &  !: sum of ua and va trend
-      t_ctl, s_ctl              !: sum of ta and sa trend
+CONTAINS
+
+
+   SUBROUTINE ctl_stop( cd1, cd2, cd3, cd4, cd5,   &
+      &                 cd6, cd7, cd8, cd9, cd10 )
+      !!-----------------------------------------------------------------------
+      !!                  ***  ROUTINE  stop_opa  ***
+      !!
+      !! ** Purpose : ???
+      !!
+      !!-----------------------------------------------------------------------
+      CHARACTER(len=*),INTENT(in),OPTIONAL ::  cd1, cd2, cd3, cd4, cd5, cd6, cd7, cd8, cd9, cd10
+      !!-----------------------------------------------------------------------
+      
+      nstop = nstop + 1 
+      IF(lwp) THEN
+         WRITE(numout,"(/,' ===>>> : E R R O R',     /,'         ===========',/)") 
+         IF( PRESENT(cd1 ) ) WRITE(numout,*) cd1
+         IF( PRESENT(cd2 ) ) WRITE(numout,*) cd2
+         IF( PRESENT(cd3 ) ) WRITE(numout,*) cd3
+         IF( PRESENT(cd4 ) ) WRITE(numout,*) cd4
+         IF( PRESENT(cd5 ) ) WRITE(numout,*) cd5
+         IF( PRESENT(cd6 ) ) WRITE(numout,*) cd6
+         IF( PRESENT(cd7 ) ) WRITE(numout,*) cd7
+         IF( PRESENT(cd8 ) ) WRITE(numout,*) cd8
+         IF( PRESENT(cd9 ) ) WRITE(numout,*) cd9
+         IF( PRESENT(cd10) ) WRITE(numout,*) cd10
+      ENDIF
+      CALL FLUSH(numout)
+
+   END SUBROUTINE ctl_stop
+
+
+   SUBROUTINE ctl_warn( cd1, cd2, cd3, cd4, cd5,   &
+      &                 cd6, cd7, cd8, cd9, cd10 )
+      !!-----------------------------------------------------------------------
+      !!                  ***  ROUTINE  stop_opa  ***
+      !!
+      !! ** Purpose : ???
+      !!
+      !!-----------------------------------------------------------------------
+      CHARACTER(len=*),INTENT(in),OPTIONAL ::  cd1, cd2, cd3, cd4, cd5, cd6, cd7, cd8, cd9, cd10
+      !!-----------------------------------------------------------------------
+      
+      nwarn = nwarn + 1 
+      IF(lwp) THEN
+         WRITE(numout,"(/,' ===>>> : W A R N I N G', /,'         ===============',/)") 
+         IF( PRESENT(cd1 ) ) WRITE(numout,*) cd1
+         IF( PRESENT(cd2 ) ) WRITE(numout,*) cd2
+         IF( PRESENT(cd3 ) ) WRITE(numout,*) cd3
+         IF( PRESENT(cd4 ) ) WRITE(numout,*) cd4
+         IF( PRESENT(cd5 ) ) WRITE(numout,*) cd5
+         IF( PRESENT(cd6 ) ) WRITE(numout,*) cd6
+         IF( PRESENT(cd7 ) ) WRITE(numout,*) cd7
+         IF( PRESENT(cd8 ) ) WRITE(numout,*) cd8
+         IF( PRESENT(cd9 ) ) WRITE(numout,*) cd9
+         IF( PRESENT(cd10) ) WRITE(numout,*) cd10
+      ENDIF
+      CALL FLUSH(numout)
+
+   END SUBROUTINE ctl_warn
 
 END MODULE in_out_manager