Changeset 695 for trunk/LMDZ.MARS/libf/phymars/nlte_aux.F

Timestamp:

Jun 5, 2012, 1:41:39 PM (12 years ago)

Author:

acolaitis

Message:

GCM: modifications to allow for nesting compilation. Transparent to GCM user. MESOSCALE: handling of functions and modules for nesting compilation. Full nested configuration with new physics is now fully compiling.

File:

• trunk/LMDZ.MARS/libf/phymars/nlte_aux.F (modified) (3 diffs)

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

@@ -277 +277 @@
 c arguments                 
       integer         ig        ! ADDED FOR TRACEBACK
-      real*8            me      ! I. path's absorber amount  
+      real*8          me      ! I. path's absorber amount  
       real*8          pe        ! I. path's presion total
       real*8          plaux     ! I. path's partial pressure of CO2
@@ -287 +287 @@
       
 c local variables                               
-      integer   i                                     
-      real*8            y,x,wl,wd                    
-      real*8            cn(0:7),dn(0:7)                        
-      real*8            pi, xx                                
+      integer         i                                     
+      real*8          y,x,wl,wd                    
+      real*8          cn(0:7),dn(0:7)                        
+      real*8          pi, xx                                
       real*8          f_sat_box                      
       real*8          dv_sat_box, dv_corte_box       
@@ -558 +558 @@
       write(2,7) c1,c,c2,fsim(c1),fsim(c),fsim(c2)    
       write(*,7) c1,c,c2,fsim(c1),fsim(c),fsim(c2)      
- 7    format(2x,17hsimrule fails at ,/,3e15.6,/,3e15.6)     
+ 7    format(2x,'17hsimrule fails at ',/,3e15.6,/,3e15.6)     
       goto 8                                         
  5    a0=s1(n)