Changeset 1956

Timestamp:

Jan 31, 2014, 1:42:35 PM (10 years ago)

Author:

lguez

Message:

Correcting bad spacing left over from fixed source form.

File:

• LMDZ5/trunk/libf/phylmd/physiq.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -1577 +1577 @@
   !
   if (read_climoz >= 1) then
-     !        Ozone from a file
-     !        Update required ozone index:
-     ro3i = int((days_elapsed + jh_cur - jh_1jan) &
-          / ioget_year_len(year_cur) * 360.) + 1
+     ! Ozone from a file
+     ! Update required ozone index:
+     ro3i = int((days_elapsed + jh_cur - jh_1jan) / ioget_year_len(year_cur) &
+          * 360.) + 1
      if (ro3i == 361) ro3i = 360
-     !        (This should never occur, except perhaps because of roundup
-     !        error. See documentation.)
+     ! (This should never occur, except perhaps because of roundup
+     ! error. See documentation.)
      if (ro3i /= co3i) then
-        !           Update ozone field:
+        ! Update ozone field:
         if (read_climoz == 1) then
            call regr_pr_av(ncid_climoz, (/"tro3"/), julien=ro3i, &
                 press_in_edg=press_climoz, paprs=paprs, v3=wo)
         else
-           !              read_climoz == 2
-           call regr_pr_av(ncid_climoz, &
-                (/"tro3         ", "tro3_daylight"/), &
-                julien=ro3i, press_in_edg=press_climoz, paprs=paprs, &
-                v3=wo)
+           ! read_climoz == 2
+           call regr_pr_av(ncid_climoz, (/"tro3         ", "tro3_daylight"/), &
+                julien=ro3i, press_in_edg=press_climoz, paprs=paprs, v3=wo)
         end if
-        !           Convert from mole fraction of ozone to column density of ozone in a
-        !           cell, in kDU:
-        forall (l = 1: read_climoz) wo(:, :, l) = wo(:, :, l) &
-             * rmo3 / rmd * zmasse / dobson_u / 1e3
-        !           (By regridding ozone values for LMDZ only once every 360th of
-        !           year, we have already neglected the variation of pressure in one
-        !           360th of year. So do not recompute "wo" at each time step even if
-        !           "zmasse" changes a little.)
+        ! Convert from mole fraction of ozone to column density of ozone in a
+        ! cell, in kDU:
+        forall (l = 1: read_climoz) wo(:, :, l) = wo(:, :, l) * rmo3 / rmd &
+             * zmasse / dobson_u / 1e3
+        ! (By regridding ozone values for LMDZ only once every 360th of
+        ! year, we have already neglected the variation of pressure in one
+        ! 360th of year. So do not recompute "wo" at each time step even if
+        ! "zmasse" changes a little.)
         co3i = ro3i
      end if
   ELSEIF (MOD(itap-1,lmt_pas) == 0) THEN
-     !        Once per day, update ozone from Royer:
+     ! Once per day, update ozone from Royer:
 
      IF (solarlong0<-999.) then