Changeset 769 for trunk/LMDZ.MARS/libf

Timestamp:

Sep 4, 2012, 3:27:11 PM (12 years ago)

Author:

acolaitis

Message:

MESOSCALE. minor modifications to allow compilation with new physics + nesting with latest svn revision

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• nlte_aux.F (modified) (1 diff)
• physiq.F (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/nlte_aux.F

@@ -432 +432 @@
 
       if ( wvoigt .lt. 0.0d0 ) then
-         write (*,*) ' Subroutine WE/ Error in Voift EQS calculation '
-         write (*,*) '  WL, WD, X, Y = ', wl, wd, x, y
-         stop '  ERROR : Imaginary EQW. Revise spectral data. '
+       write (*,*) ' Subroutine WE/ Error in Voift EQS calculation'
+       write (*,*) '  WL, WD, X, Y = ', wl, wd, x, y
+       stop '  ERROR : Imaginary EQW. Revise spectral data. '
       endif
 

trunk/LMDZ.MARS/libf/phymars/physiq.F

@@ -1839 +1839 @@
      &                  tsurf)
          call WRITEDIAGFI(ngrid,"ps","surface pressure","Pa",2,ps)
-         call WRITEDIAGFI(ngrid,"co2ice","co2 ice thickness","kg.m-2",2,
-     &                  co2ice)
+         call WRITEDIAGFI(ngrid,"co2ice","co2 ice thickness"
+     &                                         ,"kg.m-2",2,co2ice)
 
          call WRITEDIAGFI(ngrid,"temp7","temperature in layer 7",
@@ -2200 +2200 @@
 !        call WRITEDIAGFI(ngridmx,'lw_htrt','lw heat. rate',
 !     &                   'w.m-2',1,zdtlw/zpopsk)
-         call WRITEDIAGFI(ngrid,"co2ice","co2 ice thickness","kg.m-2",0,
-     &                  co2ice)
+         call WRITEDIAGFI(ngrid,"co2ice","co2 ice thickness"
+     &                                   ,"kg.m-2",0,co2ice)
 
 ! or output in diagfi.nc (for testphys1d)
@@ -2300 +2300 @@
      &                         'nbr/m2',0,Nccntot)
 
-             call WRITEDIAGFI(ngridmx,'zdqsed_dustq','sedimentation q',
-     &                   'kg.m-2.s-1',1,zdqsed(1,:,igcm_dust_mass))
-             call WRITEDIAGFI(ngridmx,'zdqsed_dustN','sedimentation N',
-     &                'Nbr.m-2.s-1',1,zdqsed(1,:,igcm_dust_number))
+             call WRITEDIAGFI(ngridmx,'zdqsed_dustq'
+     & ,'sedimentation q','kg.m-2.s-1',1,zdqsed(1,:,igcm_dust_mass))
+             call WRITEDIAGFI(ngridmx,'zdqsed_dustN'
+     &,'sedimentation N','Nbr.m-2.s-1',1,
+     &                                 zdqsed(1,:,igcm_dust_number))
 
            else ! of if (scavenging)