Changeset 2141

Timestamp:

Jun 14, 2019, 9:00:44 AM (6 years ago)

Author:

emillour

Message:

Mars GCM:

• minor updates: enable output of Ls in diagfi files and make an error message more verbose.

EM

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/physiq_mod.F (modified) (1 diff)
• libf/phymars/writediagfi.F (modified) (1 diff)

trunk/LMDZ.MARS/README ¶

@@ -2717 +2717 @@
   solar EUV input
  
+== 14/06/2019 == EM
+- minor updates: enable output of Ls in diagfi files and make an error
+  message more verbose.

trunk/LMDZ.MARS/libf/phymars/physiq_mod.F ¶

@@ -2534 +2534 @@
          call WRITEDIAGFI(ngrid,"temp","temperature","K",3,zt)
          call WRITEDIAGFI(ngrid,"Sols","Time","sols",0,zday)
-
+         call WRITEDIAGFI(ngrid,"Ls","Solar longitude","deg",
+     &                    0,zls*180./pi)
          call WRITEDIAGFI(ngrid,"u","Zonal wind","m.s-1",3,zu)
          call WRITEDIAGFI(ngrid,"v","Meridional wind","m.s-1",3,zv)

trunk/LMDZ.MARS/libf/phymars/writediagfi.F ¶

@@ -506 +506 @@
          if (is_parallel) then
            write(*,*) "writediagfi error: dim=1 not implemented ",
-     &                 "in parallel mode"
+     &                 "in parallel mode. Problem for ",trim(nom)
            stop
          endif