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

trunk/NEMO/OPA_SRC/TRD/trdvor.F90

@@ -409 +409 @@
       itmod = kt - nit000 + 1
 
-      IF( MOD( it, ntrd ) == 0 ) THEN
+      IF( MOD( it, nn_trd ) == 0 ) THEN
 
          ! III.1 compute total trend
@@ -456 +456 @@
       IF( kt >=  nit000+1 ) THEN
 
-         IF( lwp .AND. MOD( itmod, ntrd ) == 0 ) THEN
+         IF( lwp .AND. MOD( itmod, nn_trd ) == 0 ) THEN
             WRITE(numout,*) ''
             WRITE(numout,*) 'trd_vor : write trends in the NetCDF file at kt = ', kt
@@ -483 +483 @@
       ENDIF
       !
-      IF( MOD( it, ntrd ) == 0 ) rotot(:,:)=0
+      IF( MOD( it, nn_trd ) == 0 ) rotot(:,:)=0
       !
       IF( kt == nitend )   CALL histclo( nidvor )
@@ -551 +551 @@
       clop = "ave("//TRIM(clop)//")"
 #endif
-      zout = ntrd*rdt
+      zout = nn_trd*rdt
 
       IF(lwp) WRITE(numout,*) '               netCDF initialization'
@@ -566 +566 @@
       ! II.3 Define the T grid trend file (nidvor)
       ! ---------------------------------
-      CALL dia_nam( clhstnam, ntrd, 'vort' )                  ! filename
+      CALL dia_nam( clhstnam, nn_trd, 'vort' )                  ! filename
       IF(lwp) WRITE(numout,*) ' Name of NETCDF file ', clhstnam
       CALL histbeg( clhstnam, jpi, glamf, jpj, gphif,1, jpi,   &  ! Horizontal grid : glamt and gphit