Changeset 1155 for trunk/LMDZ.GENERIC/libf/phystd

Timestamp:

Jan 7, 2014, 3:24:20 PM (11 years ago)

Author:

milmd

Message:

LMDZ.GENERIC. sorry. previous commit (r1151) incuded a bug in inifis.F. forgot an elementary rule of fortran.

File:

• trunk/LMDZ.GENERIC/libf/phystd/inifis.F (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/inifis.F

@@ -449 +449 @@
          write(*,*)" aeroback2lay = ",aeroback2lay
 
-         write(*,*)"TWOLAY AEROSOL: total optical depth in the tropospheric layer (visible)"
+         write(*,*)"TWOLAY AEROSOL: total optical depth ",
+     &              "in the tropospheric layer (visible)"
          obs_tau_col_tropo=8.D0
          call getin("obs_tau_col_tropo",obs_tau_col_tropo)
          write(*,*)" obs_tau_col_tropo = ",obs_tau_col_tropo
 
-         write(*,*)"TWOLAY AEROSOL: total optical depth in the stratospheric layer (visible)"
+         write(*,*)"TWOLAY AEROSOL: total optical depth ",
+     &              "in the stratospheric layer (visible)"
          obs_tau_col_strato=0.08D0
          call getin("obs_tau_col_strato",obs_tau_col_strato)
@@ -479 +481 @@
          write(*,*)" pres_top_strato = ",pres_top_strato
 
-         write(*,*)"TWOLAY AEROSOL: particle size in the tropospheric layer, in meters"
+         write(*,*)"TWOLAY AEROSOL: particle size in the ",
+     &              "tropospheric layer, in meters"
          size_tropo=2.e-6
          call getin("size_tropo",size_tropo)
          write(*,*)" size_tropo = ",size_tropo
 
-         write(*,*)"TWOLAY AEROSOL: particle size in the stratospheric layer, in meters"
+         write(*,*)"TWOLAY AEROSOL: particle size in the ",
+     &              "stratospheric layer, in meters"
          size_strato=1.e-7
          call getin("size_strato",size_strato)