Changeset 3827 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

Timestamp:

2013-03-06T10:01:26+01:00 (11 years ago)

Author:

cetlod

Message:

v3.5alpha: Add missing IF(lwp) before writing in numout, see ticket #1066

File:

• branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90 (modified) (3 diffs)

branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

@@ -80 +80 @@
       CALL nemo_init  ! Initializations
 
-      IF( lk_mpp )   CALL mpp_max( nstop )
-
       ! check that all process are still there... If some process have an error,
       ! they will never enter in step and other processes will wait until the end of the cpu time!
@@ -90 +88 @@
       !                            !-----------------------!
       istp = nit000
-         !
+      ! 
       CALL iom_init            ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS)
+      ! 
       DO WHILE ( istp <= nitend .AND. nstop == 0 )    ! time stepping
          !
@@ -121 +120 @@
       !
 # if defined key_iomput
-         CALL xios_finalize             ! end mpp communications
+      CALL xios_finalize             ! end mpp communications
 # else
       IF( lk_mpp )   CALL mppstop       ! end mpp communications