Changeset 3043 for branches/2011/dev_r2787_MERCATOR2_tidalharm/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90

Timestamp:

2011-11-04T10:08:18+01:00 (13 years ago)

Author:

cbricaud

Message:

Coding rules

File:

• branches/2011/dev_r2787_MERCATOR2_tidalharm/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90 (modified) (9 diffs)

branches/2011/dev_r2787_MERCATOR2_tidalharm/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90

@@ -234 +234 @@
         nhan = (nitend_han-nit000_han+1)/nstep_han ! Number of dumps used for analysis
 
-        NBINCO = 2*nb_ana
+        ninco = 2*nb_ana
 
         ksp = 0
@@ -246 +246 @@
               kun = kun + 1
               ksp = ksp + 1
-              ISPARSE(ksp) = keq
-              JSPARSE(ksp) = kun
-              SPARSEVALUE(ksp)= &
+              nisparse(ksp) = keq
+              njsparse(ksp) = kun
+              valuesparse(ksp)= &
                  +(     MOD(jc,2) * ft(jh) * COS(ana_freq(jh)*ztime + vt(jh) + ut(jh)) &
                    +(1.-MOD(jc,2))* ft(jh) * SIN(ana_freq(jh)*ztime + vt(jh) + ut(jh)))
@@ -255 +255 @@
         END DO
 
-        NBSPARSE=ksp
+        nsparse=ksp
 
         ! Elevation:
@@ -265 +265 @@
               DO jc = 1,2
                 kun = kun + 1
-                TAB4(kun)=ana_temp(ji,jj,kun,1)
+                tmp4(kun)=ana_temp(ji,jj,kun,1)
               ENDDO
             ENDDO
@@ -273 +273 @@
             ! Fill output array
             DO jh = 1, nb_ana
-              ana_amp(ji,jj,jh,1)=TAB7((jh-1)*2+1)
-              ana_amp(ji,jj,jh,2)=TAB7((jh-1)*2+2)
+              ana_amp(ji,jj,jh,1)=tmp7((jh-1)*2+1)
+              ana_amp(ji,jj,jh,2)=tmp7((jh-1)*2+2)
             END DO
           END DO
@@ -303 +303 @@
               DO jc = 1,2
                 kun = kun + 1
-                TAB4(kun)=ana_temp(ji,jj,kun,2)
+                tmp4(kun)=ana_temp(ji,jj,kun,2)
               ENDDO
             ENDDO
@@ -311 +311 @@
             ! Fill output array
             DO jh = 1, nb_ana
-              ana_amp(ji,jj,jh,1)=TAB7((jh-1)*2+1)
-              ana_amp(ji,jj,jh,2)=TAB7((jh-1)*2+2)
+              ana_amp(ji,jj,jh,1)=tmp7((jh-1)*2+1)
+              ana_amp(ji,jj,jh,2)=tmp7((jh-1)*2+2)
             END DO
 
@@ -337 +337 @@
                 DO jc = 1,2
                   kun = kun + 1
-                  TAB4(kun)=ana_temp(ji,jj,kun,3)
+                  tmp4(kun)=ana_temp(ji,jj,kun,3)
                 ENDDO
               ENDDO
@@ -345 +345 @@
               ! Fill output array
               DO jh = 1, nb_ana
-                ana_amp(ji,jj,jh,1)=TAB7((jh-1)*2+1)
-                ana_amp(ji,jj,jh,2)=TAB7((jh-1)*2+2)
+                ana_amp(ji,jj,jh,1)=tmp7((jh-1)*2+1)
+                ana_amp(ji,jj,jh,2)=tmp7((jh-1)*2+2)
               END DO