Changeset 3683 for LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read_std.F90

Timestamp:

May 26, 2020, 11:31:57 AM (4 years ago)

Author:

fhourdin

Message:

Correction format standard
Frédéric

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read_std.F90 (modified) (7 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/mod_1D_cases_read_std.F90

@@ -313 +313 @@
 
       data name_var/ &
-     ! coordonnees pression (n niveaux) profils intiaux #1-#15
+     ! coordonnees pression (n niveaux) profils intiaux #1-#17
      & 'qt','qv','ql','qi','rt','rv','rl','ri',                                                   &
      & 'rh','temp','theta','thetal','u','v','tke',                                                &
-     ! coordonnees pression (n niveaux) + temps #16-#42
+     & 'height','pressure',                                                                       &
+     ! coordonnees pression (n niveaux) + temps #18-#44
      & 'height_forc','pressure_forc','w','omega','ug','vg','u_adv','v_adv',                       &
      & 'temp_adv','theta_adv','thetal_adv','qt_adv','qv_adv','rt_adv','rv_adv',                   &
      & 'temp_rad','theta_rad','thetal_rad','temp_nudging','theta_nudging','thetal_nudging',       & 
      & 'qv_nudging','qt_nudging','rv_nudging','rt_nudging','u_nudging','v_nudging',               & 
-     ! coordonnees temps #43-#53
+     ! coordonnees temps #45-#55
      & 'sfc_sens_flx','sfc_lat_flx','ts','ps','ps_forc','ustar',                                  &
-     & 'wpthetap','wpqvp','wpqtp','wprtp','wprvp',                                                &             
-     ! scalaires #54-55
-     & 'height','pressure'/
+     & 'wpthetap','wpqvp','wpqtp','wprtp','wprvp'/
+     ! scalaires #56-57
+     ! Aucune
 
 !-----------------------------------------------------------------------
@@ -361 +362 @@
 !  Reading 1D (N) vertical varialbes    (nlevel,lat,lon)   
 !-----------------------------------------------------------------------
-           if(i.LE.15) then
+           if(i.LE.17) then
 #ifdef NC_DOUBLE
            ierr = NF_GET_VAR_DOUBLE(nid,var3didin(i),resul1)
@@ -372 +373 @@
               stop "getvarup"
            endif
-         print*,'Lecture de la variable #i ',i,name_var(i),minval(resul1),maxval(resul1)
+         print*,'Lecture de la variable (nlevel,lat,lon) #i ',i,name_var(i),minval(resul1),maxval(resul1)
 
 !-----------------------------------------------------------------------
@@ -378 +379 @@
 !  TBD : seems to be the same as above.
 !-----------------------------------------------------------------------
-           else if(i.ge.16.and.i.LE.42) then
+           else if(i.ge.18.and.i.LE.44) then
 #ifdef NC_DOUBLE
            ierr = NF_GET_VAR_DOUBLE(nid,var3didin(i),resul)
@@ -389 +390 @@
               stop "getvarup"
            endif
-         print*,'Lecture de la variable #i ',i,name_var(i),minval(resul),maxval(resul)
+         print*,'Lecture de la variable (time,nlevel,lat,lon) #i ',i,name_var(i),minval(resul),maxval(resul)
 
 !-----------------------------------------------------------------------
 !  Reading 1D time variables (time,lat,lon)
 !-----------------------------------------------------------------------
-           else if (i.gt.43.and.i.LE.53) then
+           else if (i.gt.45.and.i.LE.55) then
 #ifdef NC_DOUBLE
            ierr = NF_GET_VAR_DOUBLE(nid,var3didin(i),resul2)
@@ -405 +406 @@
               stop "getvarup"
            endif
-         print*,'Lecture de la variable #i  ',i,name_var(i),minval(resul2),maxval(resul2)
+         print*,'Lecture de la variable (time,lat,lon) #i  ',i,name_var(i),minval(resul2),maxval(resul2)
 !-----------------------------------------------------------------------
 ! Reading scalar variables (t0,lat,lon)
@@ -420 +421 @@
               stop "getvarup"
            endif
-         print*,'Lecture de la variable #i ',i,name_var(i),resul3
+         print*,'Lecture de la variable  (t0,lat,lon) #i ',i,name_var(i),resul3
            endif
          endif