Changeset 2839 for branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

Timestamp:

2011-09-15T08:41:58+02:00 (13 years ago)

Author:

cbricaud

Message:

modified routine for netcdf output

File:

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

branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -341 +341 @@
 #endif
       !                                     ! Diagnostics
+      IF( lk_floats     )   CALL     flo_init   ! drifting Floats
                             CALL     iom_init   ! iom_put initialization
-      IF( lk_floats     )   CALL     flo_init   ! drifting Floats
       IF( lk_diaar5     )   CALL dia_ar5_init   ! ar5 diag
                             CALL dia_ptr_init   ! Poleward TRansports initialization