Changeset 690 for trunk/LMDZ.MARS/libf/phymars/aeroptproperties.F

Timestamp:

Jun 4, 2012, 10:37:25 AM (12 years ago)

Author:

acolaitis

Message:

Code re-organization in diverse parts of the GCM code. These are NOT cosmetic changes, but are needed for compilation of the Mesoscale model in NESTED configuration

File:

• trunk/LMDZ.MARS/libf/phymars/aeroptproperties.F (modified) (1 diff)

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

@@ -1174 +1174 @@
           ENDDO ! lg
           write(out_str(1:1),'(i1.1)') out_nchannel
-          call WRITEDIAGFI(ngrid,'qextir'//out_str,"Ext.efficiency","",
+       call WRITEDIAGFI(ngrid,'qextir'//out_str,"Ext.efficiency","",
      &                     3,out_qext)
-          call WRITEDIAGFI(ngrid,'omegir'//out_str,"Sing.Scat.Alb.","",
+       call WRITEDIAGFI(ngrid,'omegir'//out_str,"Sing.Scat.Alb.","",
      &                     3,out_omeg)
-          call WRITEDIAGFI(ngrid,'gir'//out_str,"Asym.Factor","",
+       call WRITEDIAGFI(ngrid,'gir'//out_str,"Asym.Factor","",
      &                     3,out_g)
 c     -------------------------------------------------------------