Changeset 2876 for branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/FLO/flowri.F90

Timestamp:

2011-09-29T17:36:24+02:00 (13 years ago)

Author:

cbricaud

Message:

modify comments

File:

• branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/FLO/flowri.F90 (modified) (7 diffs)

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

@@ -40 +40 @@
    ! member arrays.
    REAL(wp), ALLOCATABLE, DIMENSION(:) ::   zlon , zlat, zdep   ! 2D workspace
-   REAL(wp), ALLOCATABLE, DIMENSION(:) ::   ztem, zsal, zrho   ! 2D workspace
+   REAL(wp), ALLOCATABLE, DIMENSION(:) ::   ztem , zsal, zrho   ! 2D workspace
 
    !! * Substitutions
@@ -194 +194 @@
          IF( ( kt == nn_it000 .OR. MOD( kt,nn_writefl)== 0 ) .AND. lwp )THEN
 
-            !II-2-a Open ascii file
+            !II-1-a Open ascii file
             !----------------------
             IF( kt == nn_it000 ) THEN
@@ -202 +202 @@
             ENDIF
 
-            !III-2-b Write in ascii file
+            !II-1-b Write in ascii file
             !-----------------------------
             WRITE(numfl,*) zlon,zlat,zdep,nisobfl,ngrpfl,ztem,zsal, FLOAT(ndastp)
 
 
-            !III-2-c Close netcdf file
+            !II-1-c Close netcdf file
             !-------------------------
             IF( kt == nitend )   CLOSE( numfl )
@@ -214 +214 @@
 
       !-----------------------------------------------------
-      ! III- Write in netcdf file
+      ! II-2 Write in netcdf file
       !-----------------------------------------------------
 
       ELSE
+
+      !II-2-a Write with IOM
+      !----------------------
 
 #if defined key_iomput
@@ -229 +232 @@
 #else
 
-      !III-2 Write with IOIPSL
-      !----------------------
+      !II-2-b Write with IOIPSL
+      !------------------------
 
          IF( ( kt == nn_it000 .OR. MOD( kt,nn_writefl)== 0 ) .AND. lwp )THEN
 
 
-            !III-2-a Open netcdf file
-            !-----------------------
+            !II-2-b-1 Open netcdf file
+            !-------------------------
             IF( kt==nn_it000 )THEN   ! Create and open
 
@@ -262 +265 @@
             ENDIF
 
-            !III-2-b Write in  netcdf file
-            !-----------------------------
+            !II-2-b-2 Write in  netcdf file
+            !-------------------------------
             irec =  INT( (kt-nn_it000+1)/nn_writefl ) +1
             ztime = ( kt-nn_it000 + 1 ) * rdt
@@ -283 +286 @@
             ENDDO
 
-            !III-2-c Close netcdf file
-            !-------------------------
+            !II-2-b-3 Close netcdf file
+            !---------------------------
             CALL flioclo( numfl )