Changeset 1960 for LMDZ5/trunk/libf/phy1d/1Dconv.h

Timestamp:

Feb 7, 2014, 5:20:25 PM (11 years ago)

Author:

fhourdin

Message:

Nettoyage du code 1D pour limiter les warning en mode debug.
Essentiellement des declarations inutiles.

Cleaning of the 1D code in order to limit warnings in debug mode.
Essentially supressing unused declared variables.

File:

• LMDZ5/trunk/libf/phy1d/1Dconv.h (modified) (10 diffs)

LMDZ5/trunk/libf/phy1d/1Dconv.h

@@ -22 +22 @@
       REAL hplaym(100) !pression en hPa milieux des couches Meso-NH
 
-      integer i,j,k,ii,ll,in
-      REAL tsol,qsol
+      integer i,j,k,ll,in
 
       CHARACTER*80 file_forctl,file_fordat
 
-      COMMON/com1_phys_gcss/klev,play,JM,coef1,coef2
-      COMMON/com2_phys_gcss/nblvlm,playm,hplaym
+      COMMON/com1_phys_gcss/play,coef1,coef2,JM,klev
+      COMMON/com2_phys_gcss/playm,hplaym,nblvlm
 
 c======================================================================
@@ -170 +169 @@
              hqTurbbef(i)=hqTurbaft(i)
           enddo
-               tsbef = tsaft
+          tsbef = tsaft
           timebef=pasprev*dt
           timeaft=timebef+dt
@@ -213 +212 @@
                print*,'hqTurb_mes ',(hqTurb_mes(i),i=1,nblvlm)
                   endif
-               IF (ts_fcg) print*,'ts_subr', ts_subr
+          IF (ts_fcg) print*,'ts_subr', ts_subr
 c*** on interpole les champs meso_NH sur les niveaux de pression***
 c*** gcm . on obtient le nouveau champ after                    ***
@@ -263 +262 @@
                hqTurb(ll)=hqTurbaft(ll)
           enddo
-               ts_subr = tsaft
+          ts_subr = tsaft
       else ! temps.ge.pasmax
 c*** on interpole sur les pas de temps de 10mn du gcm a partir   ***
@@ -282 +281 @@
              endif ! Turb_fcg
          enddo
-              ts_subr = ((timeaft-time)*tsbef + (time-timebef)*tsaft)/dt
+         ts_subr = ((timeaft-time)*tsbef + (time-timebef)*tsaft)/dt
        endif ! temps.ge.pasmax
 c
@@ -440 +439 @@
                 endif ! Turb_fcg
           enddo
-               ts_subr = tsaft
+          ts_subr = tsaft
           close(99)
           close(98)
@@ -505 +504 @@
       REAL hplaym(100)!pression en hecto-Pa des milieux de couche Meso-NH
 
-      COMMON/com1_phys_gcss/klev,play,JM,coef1,coef2
-      COMMON/com2_phys_gcss/nblvlm,playm,hplaym
-
-      integer i,k,klevgcm
+      COMMON/com1_phys_gcss/play,coef1,coef2,JM,klev
+      COMMON/com2_phys_gcss/playm,hplaym,nblvlm
+
+      integer k,klevgcm
       real playgcm(klevgcm) ! pression en milieu de couche du gcm
       real psolgcm
@@ -577 +576 @@
       REAL playm(100)  !pression en Pa milieu de chaque couche Meso-NH
       REAL hplaym(100) !pression en hPa des milieux de couche Meso-NH
-      COMMON/com2_phys_gcss/nblvlm,playm,hplaym
-
-      INTEGER i,lu,k,mlz,mlzh,j
+      COMMON/com2_phys_gcss/playm,hplaym,nblvlm
+
+      INTEGER i,lu,mlz,mlzh
  
       character*80 file_forctl
@@ -644 +643 @@
       real ts
 c
-      INTEGER i, k
+      INTEGER k
 c
       LOGICAL imp_fcg,ts_fcg,Turb_fcg
@@ -725 +724 @@
       REAL hplaym(100)!pression en hPa des milieux de couche Meso-NH
 
-      COMMON/com1_phys_gcss/klev,play,JM,coef1,coef2
-      COMMON/com2_phys_gcss/nblvlm,playm,hplaym
+      COMMON/com1_phys_gcss/play,coef1,coef2,JM,klev
+      COMMON/com2_phys_gcss/playm,hplaym,nblvlm
 
       REAL psol
       REAL val
-      INTEGER k, mlz, mlzh
+      INTEGER k, mlz