Changeset 1601 for trunk/NEMO/OPA_SRC/TRD/trdicp.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/TRD/trdicp.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/TRD/trdicp.F90

@@ -60 +60 @@
       !! 
       !! ** Purpose : verify the basin averaged properties of tracers and/or
-      !!              momentum equations at every time step frequency ntrd.
+      !!              momentum equations at every time step frequency nn_trd.
       !!----------------------------------------------------------------------
       REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) ::   ptrd2dx             ! Temperature or U trend 
@@ -186 +186 @@
       !! 
       !! ** Purpose : verify the basin averaged properties of tracers and/or
-      !!              momentum equations at every time step frequency ntrd.
+      !!              momentum equations at every time step frequency nn_trd.
       !!----------------------------------------------------------------------
       REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(inout) ::   ptrd3dx            ! Temperature or U trend 
@@ -386 +386 @@
       ! -------------------
 
-      IF( MOD(kt,ntrd) == 0 .OR. kt == nit000 .OR. kt == nitend ) THEN
+      IF( MOD(kt,nn_trd) == 0 .OR. kt == nit000 .OR. kt == nitend ) THEN
 
          ! I.1 Conversion potential energy - kinetic energy
@@ -588 +588 @@
       ! -----------------
 
-      IF( MOD(kt,ntrd) == 0 .OR. kt == nit000 .OR. kt == nitend ) THEN
+      IF( MOD(kt,nn_trd) == 0 .OR. kt == nit000 .OR. kt == nitend ) THEN
 
          ! I.1 Sums over the global domain