Changeset 2841 for branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/FLO/floats.F90

Timestamp:

2011-09-16T11:24:28+02:00 (13 years ago)

Author:

cbricaud

Message:

cosmetic changes

File:

• branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/FLO/floats.F90 (modified) (1 diff)

branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/FLO/floats.F90

@@ -57 +57 @@
       IF( lk_mpp )   CALL mppsync   ! synchronization of all the processor
       !
-      !IF( kt == nit000 .OR. MOD( kt, nn_writefl ) == 0 )   CALL flo_wri( kt )      ! trajectories file 
       CALL flo_wri( kt )      ! trajectories file 
-      !??IF( kt == nitend .OR. MOD( kt, nn_stockfl ) == 0 )   CALL flo_wri( kt )      ! restart file 
       !
       wb(:,:,:) = wn(:,:,:)         ! Save the old vertical velocity field