Changeset 2979 for trunk/LMDZ.MARS/util/simu_MCS.F90

Timestamp:

Jun 9, 2023, 3:06:52 PM (21 months ago)

Author:

abierjon

Message:

Mars GCM:
Adapt simu_MCS.F90 so that it also recognizes new dust opacity names from aeroptical (since r2817 : "opa_dust" instead of "opadust")
(retrocompatible with old names as well)

AB

File:

• trunk/LMDZ.MARS/util/simu_MCS.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/util/simu_MCS.F90

@@ -1573 +1573 @@
     status=nf90_inq_varid(outfid,trim(out_dztauname),out_dztauid)
     if (status.ne.nf90_noerr) then
-      ! if no "d/ndust" in outfile, look for "d/nopadust"
-      out_dztauname = out_dztauname(1:1)//"opadust"
+      ! if no "d/ndust" in outfile, look for "d/nopa_dust"
+      out_dztauname = out_dztauname(1:1)//"opa_dust"
       status=nf90_inq_varid(outfid,trim(out_dztauname),out_dztauid)
       if (status.ne.nf90_noerr) then
-        tau_ratio_ok = .false.
-        write(*,*)"No dust opacity in the outfile, we'll pass the computation of the CDOD ratio"
+        ! if no "d/ndust" nor d/nopa_dust" in outfile, look for "d/nopadust" (old variable name from aeroptical, before r2817)
+        out_dztauname = out_dztauname(1:1)//"opadust"
+        status=nf90_inq_varid(outfid,trim(out_dztauname),out_dztauid)
+        if (status.ne.nf90_noerr) then
+          tau_ratio_ok = .false.
+          write(*,*)"No dust opacity in the outfile, we skip the computation of the CDOD ratio"
+        endif
       endif
     endif
@@ -1588 +1593 @@
     if (status.ne.nf90_noerr) then
       tau_ratio_ok = .false.
-      write(*,*)"No temperature in the outfile, we'll pass the computation of the CDOD ratio"
+      write(*,*)"No temperature in the obsfile, we skip the computation of the CDOD ratio"
     endif
   endif