Changeset 3119

Timestamp:

Nov 9, 2023, 9:41:47 AM (13 months ago)

Author:

mwolff

Message:

Small updates to aeroptical and simu_MCS (in LMDZ.MARS/util) to make
Mac OSX gfortran happy.

Location:

trunk/LMDZ.MARS/util

Files:

• aeroptical.F90 (modified) (2 diffs)
• simu_MCS.F90 (modified) (1 diff)

trunk/LMDZ.MARS/util/aeroptical.F90

@@ -170 +170 @@
 
   ! Read next line
-  read(*,*,iostat=read_ok) name_aer(naerkind+1),mmrname_aer(naerkind+1),reffname_aer(naerkind+1),rho_aer(naerkind+1),optpropfile_aer(naerkind+1)
+  read(*,*,iostat=read_ok) name_aer(naerkind+1),mmrname_aer(naerkind+1),&
+     reffname_aer(naerkind+1),rho_aer(naerkind+1),optpropfile_aer(naerkind+1)
 enddo
 
@@ -1474 +1475 @@
 ! 3.2 CASE 2: try to use the GCM altitude dimension
 !=========================================================================
-  IF (is_zlev.eq..false.) THEN
+! (mjw)  IF (is_zlev.eq..false.) THEN
+  IF (is_zlev.eqv..false.) THEN
     ! Get the field in GCM file
     ierr=nf90_inq_varid(gcmfid,"altitude",tmpvarid)

trunk/LMDZ.MARS/util/simu_MCS.F90

@@ -1651 +1651 @@
           ! Compute optical depths where both GCM and OBS have non-missing values
           ! (especially above the highest (in altitude) of the lowest (in altitude) valid values in the GCM and Observer profile)
-          IF ((out_dztau(i,j,k,l).ne.OBSmiss_val).and.(OBS_dztau(i,j,k,l).ne.OBSmiss_val).and.(OBS_temp(i,j,k,l).ne.OBSmiss_val)) then
+          IF ((out_dztau(i,j,k,l).ne.OBSmiss_val).and.&
+              (OBS_dztau(i,j,k,l).ne.OBSmiss_val).and.&
+              (OBS_temp(i,j,k,l).ne.OBSmiss_val)) then
             OBS_rho = OBSalt(k) / (r_atm*OBS_temp(i,j,k,l))