Changeset 1601 for trunk/NEMO/OPA_SRC/FLO/flowri.F90

Timestamp:

2009-08-11T12:09:19+02:00 (15 years ago)

Author:

ctlod

Message:

Doctor naming of OPA namelist variables , see ticket: #526

File:

• trunk/NEMO/OPA_SRC/FLO/flowri.F90 (modified) (8 diffs)

trunk/NEMO/OPA_SRC/FLO/flowri.F90

@@ -2 +2 @@
    !!======================================================================
    !!                       ***  MODULE  flowri  ***
-   !! 
+   !! lagrangian floats :   outputs
    !!======================================================================
+   !! History :   OPA  ! 1999-09  (Y. Drillet)  Original code
+   !!                  ! 2000-06  (J.-M. Molines)  Profiling floats for CLS 
+   !!   NEMO      1.0  ! 2002-11  (G. Madec, A. Bozec)  F90: Free form and module
+   !!----------------------------------------------------------------------
+
 #if   defined key_floats   ||   defined key_esopa
    !!----------------------------------------------------------------------
@@ -10 +15 @@
    !!    flowri     : write trajectories of floats in file 
    !!----------------------------------------------------------------------
-   !! * Modules used
    USE flo_oce         ! ocean drifting floats
    USE oce             ! ocean dynamics and tracers
@@ -19 +23 @@
 
    IMPLICIT NONE
-
-   !! * Accessibility
    PRIVATE
-   PUBLIC flo_wri     ! routine called by floats.F90
-
-   !! * Module variables
-      INTEGER :: jfl              ! number of floats
+
+   PUBLIC   flo_wri    ! routine called by floats.F90
+
+   INTEGER ::   jfl    ! number of floats
 
    !! * Substitutions
 #  include "domzgr_substitute.h90"
    !!----------------------------------------------------------------------
-   !!   OPA 9.0 , LOCEAN-IPSL (2005) 
+   !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009) 
    !! $Id$ 
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
+   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
 
@@ -38 +40 @@
 
    SUBROUTINE flo_wri( kt )
-      !!---------------------------------------------------------------------
+      !!-------------------------------------------------------------------
       !!                  ***  ROUTINE flo_wri  ***
       !!             
@@ -44 +46 @@
       !!      and the temperature and salinity at this position
       !!      
-      !! ** Method  :   The frequency is nwritefl
-      !!      
-      !!  History :
-      !!    8.0  !  99-09  (Y. Drillet)  Original code
-      !!         !  00-06  (J.-M. Molines)  Profiling floats for CLS 
-      !!    8.5  !  02-10  (A. Bozec)  F90: Free form and module
+      !! ** Method  :   The frequency is nn_writefl
       !!----------------------------------------------------------------------
-      !! * Arguments
-      INTEGER  :: kt                               ! time step
-
-      !! * Local declarations
+      INTEGER ::   kt   ! time step
+      !!
       CHARACTER (len=21) ::  clname
-      INTEGER ::   inum            ! temporary logical unit for restart file
-      INTEGER  ::   &
-         iafl,ibfl,icfl,ia1fl,ib1fl,ic1fl,jfl,irecflo,   &
-         iafloc,ibfloc,ia1floc,ib1floc,   &
-         iafln, ibfln
+      INTEGER ::   inum   ! temporary logical unit for restart file
+      INTEGER ::   iafl, ibfl, icfl, ia1fl, ib1fl, ic1fl, jfl, irecflo,   &
+      INTEGER ::   iafloc, ibfloc, ia1floc, ib1floc, iafln, ibfln
       INTEGER  ::    ic, jc , jpn
       INTEGER, DIMENSION ( jpnij )  :: iproc
@@ -69 +62 @@
       !!---------------------------------------------------------------------
       
-      IF( kt == nit000 .OR. MOD( kt,nwritefl)== 0 ) THEN 
+      IF( kt == nit000 .OR. MOD( kt,nn_writefl)== 0 ) THEN 
 
          ! header of output floats file
@@ -84 +77 @@
 
          IF( kt == nit000 ) THEN
-            irecflo = NINT( (nitend-nit000) / FLOAT(nwritefl) )
-            IF(lwp) WRITE(numflo)cexper,no,irecflo,jpnfl,nwritefl
+            irecflo = NINT( (nitend-nit000) / FLOAT(nn_writefl) )
+            IF(lwp) WRITE(numflo)cexper,no,irecflo,jpnfl,nn_writefl
          ENDIF
          zdtj = rdt / 86400.      !!bug   use of 86400 instead of the phycst parameter
@@ -246 +239 @@
       ENDIF
       
-      IF( (MOD(kt,nstockfl) == 0) .OR. ( kt == nitend ) ) THEN 
+      IF( (MOD(kt,nn_stockfl) == 0) .OR. ( kt == nitend ) ) THEN 
          ! Writing the restart file 
          IF(lwp) THEN