Changeset 16 for trunk/NEMO/OPA_SRC/FLO/floats.F90

Timestamp:

2004-02-17T09:06:15+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/FLO/floats.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/FLO/floats.F90

@@ -67 +67 @@
       ENDIF
 
-# if defined key_mpp
-      CALL mppsync
-# endif
+      IF( lk_mpp )   CALL mppsync   ! synchronization of all the processor
+
 
       ! Writing and restart      
@@ -98 +97 @@
 
       !! * Local declarations
-      NAMELIST/namflo/ ln_rstarfl, nwritefl, nstockfl 
+      NAMELIST/namflo/ ln_rstflo, nwritefl, nstockfl 
       !!---------------------------------------------------------------------
       ! Namelist namflo : floats
       
       ! default values
-      ln_rstarfl  = .FALSE.
+      ln_rstflo  = .FALSE.
       nwritefl  = 150
       nstockfl  = 450
@@ -114 +113 @@
          WRITE(numout,*) ' '
          WRITE(numout,*) '         Namelist floats :'
-         WRITE(numout,*) '            restart                          ln_rstarfl = ', ln_rstarfl
-         WRITE(numout,*) '            frequency of float output file   nwritefl   = ', nwritefl
-         WRITE(numout,*) '            frequency of float restart file  nstockfl   = ', nstockfl
+         WRITE(numout,*) '            restart                          ln_rstflo = ', ln_rstflo
+         WRITE(numout,*) '            frequency of float output file   nwritefl  = ', nwritefl
+         WRITE(numout,*) '            frequency of float restart file  nstockfl  = ', nstockfl
          WRITE(numout,*) ' '
       ENDIF
@@ -128 +127 @@
 CONTAINS
    SUBROUTINE flo_stp( kt )          ! Empty routine
-      WRITE(*,*) kt
+      WRITE(*,*) 'flo_stp: You should not have seen this print! error?', kt
    END SUBROUTINE flo_stp
 #endif