Changeset 531 for trunk/NEMO/OPA_SRC/DOM

Timestamp:

2006-10-19T14:55:25+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_75 : CT : enables bit comparison between single and multiple processor runs adding nbit_cmp namelist parameter

File:

• trunk/NEMO/OPA_SRC/DOM/domain.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DOM/domain.F90

@@ -177 +177 @@
 
       ndastp = ndate0                ! Assign initial date to current date
-
-! ... Control the sub-domain area indices for the print control
-      IF(ln_ctl)   THEN
-         IF( lk_mpp ) THEN
-            ! the domain is forced to the real splitted domain in MPI
-            isplt = jpni ; jsplt = jpnj ; ijsplt = jpni*jpnj
-         ELSE
-            IF( isplt == 1 .AND. jsplt == 1  ) THEN
-               IF(lwp) WRITE(numout,cform_war)
-               IF(lwp) WRITE(numout,*)'          - isplt & jsplt are equal to 1'
-               IF(lwp) WRITE(numout,*)'          - the print control will be done over the whole domain'
-               IF(lwp) WRITE(numout,*)
-            ENDIF
-
-            ! compute the total number of processors ijsplt
-            ijsplt = isplt*jsplt
-         ENDIF
-
-         IF(lwp) WRITE(numout,*)'          - The total number of processors over which the'
-         IF(lwp) WRITE(numout,*)'            print control will be done is ijsplt : ', ijsplt
-
-         ! Control the indices used for the SUM control
-         IF( nictls+nictle+njctls+njctle == 0 )   THEN
-            ! the print control is done over the default area
-            lsp_area = .FALSE.
-         ELSE
-            ! the print control is done over a specific  area
-            lsp_area = .TRUE.
-            IF( nictls < 1 .OR. nictls > jpiglo )   THEN
-               IF(lwp) WRITE(numout,cform_war)
-               IF(lwp) WRITE(numout,*)'          - nictls must be 1<=nictls>=jpiglo, it is forced to 1'
-               IF(lwp) WRITE(numout,*)
-               nwarn = nwarn + 1
-               nictls = 1
-            ENDIF
-
-            IF( nictle < 1 .OR. nictle > jpiglo )   THEN
-               IF(lwp) WRITE(numout,cform_war)
-               IF(lwp) WRITE(numout,*)'          - nictle must be 1<=nictle>=jpiglo, it is forced to jpiglo'
-               IF(lwp) WRITE(numout,*)
-               nwarn = nwarn + 1
-               nictle = jpjglo
-            ENDIF
-
-            IF( njctls < 1 .OR. njctls > jpjglo )   THEN
-               IF(lwp) WRITE(numout,cform_war)
-               IF(lwp) WRITE(numout,*)'          - njctls must be 1<=njctls>=jpjglo, it is forced to 1'
-               IF(lwp) WRITE(numout,*)
-               nwarn = nwarn + 1
-               njctls = 1
-            ENDIF
-
-            IF( njctle < 1 .OR. njctle > jpjglo )   THEN
-               IF(lwp) WRITE(numout,cform_war)
-               IF(lwp) WRITE(numout,*)'          - njctle must be 1<=njctle>= jpjglo, it is forced to jpjglo'
-               IF(lwp) WRITE(numout,*)
-               nwarn = nwarn + 1
-               njctle = jpjglo
-            ENDIF
-
-         ENDIF          ! IF( nictls+nictle+njctls+njctle == 0 )
-       ENDIF            ! IF(ln_ctl)
 
 ! ... Control of output frequency
@@ -342 +280 @@
       ENDIF
 
+      IF( nbit_cmp == 1 .AND. n_cla /= 0 ) THEN
+         CALL ctl_stop( ' Reproductibility tests (nbit_cmp=1) require n_cla = 0' )
+      END IF
+
    END SUBROUTINE dom_nam