Changeset 1713 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

May 24, 2017, 5:23:07 PM (8 years ago)

Author:

emillour

Message:

Mars GCM:

• remove writing a "nebuldata.out" file in physiq introduced by previous update. It is not necessary and causes issues when in parallel.

EM

File:

• trunk/LMDZ.MARS/libf/phymars/physiq_mod.F (modified) (2 diffs)

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

@@ -414 +414 @@
         ALLOCATE(totcloudfrac(ngrid)) !A. Pottier: souci avec ca a priori, tentative
                                       ! de les allouer dans dimradmars_mod.F90 
-        !ouverture de nebuldata.out et nettoyage du precedent
-         open(144,file="nebuldata.out")
-         close(144,status="delete")
 
 c        variables set to 0
@@ -576 +573 @@
          call solarlong(float(day_ini),zls)
       end if
-      !A. Pottier: checking nebuldata.out
-      open(14,file="nebuldata.out",position="append")
-      write(14,*) "LsEtJour ",zls*180/pi,zday
-      close(14)
 
 c     Initialize pressure levels