Changeset 1045 for LMDZ4/trunk/libf/phylmd/physiq.F

Timestamp:

Nov 6, 2008, 5:31:39 PM (16 years ago)

Author:

lmdzadmin

Message:

On sort meantaucld dans histISCCP, car sortie simulateur (enleve du histday)
Lecture fichiers input ISCCP "debut" physiq
IM

File:

• LMDZ4/trunk/libf/phylmd/physiq.F (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/physiq.F

@@ -1753 +1753 @@
 c
       IF (MOD(itap-1,lmt_pas) .EQ. 0) THEN
-         WRITE(lunout,*)' PHYS cond  julien ',julien
+         if(prt_level.ge.1) WRITE(lunout,*)' PHYS cond  julien ',julien
          CALL ozonecm( FLOAT(julien), rlat, paprs, wo)
       ENDIF
@@ -2082 +2082 @@
 
 cIM begin
-        print*,'physiq: cin pbase dnwd0 ftd fqd ',cin(1),pbase(1),
-     .dnwd0(1,1),ftd(1,1),fqd(1,1)
+c       print*,'physiq: cin pbase dnwd0 ftd fqd ',cin(1),pbase(1),
+c    .dnwd0(1,1),ftd(1,1),fqd(1,1)
 cIM end
 cIM cf. FH
@@ -2697 +2697 @@
       IF (ok_isccp) THEN
 c
+cIM lecture invtau, tautab des fichiers formattes
+c
+      IF (debut) THEN
+c$OMP MASTER
+c
+      open(99,file='tautab.formatted', FORM='FORMATTED')
+      read(99,'(f30.20)') tautab_omp
+      close(99)
+c
+      open(99,file='invtau.formatted',form='FORMATTED')
+      read(99,'(i10)') invtau_omp
+
+c     print*,'calcul_simulISCCP invtau_omp',invtau_omp
+c     write(6,'(a,8i10)') 'invtau_omp',(invtau_omp(i),i=1,100)
+
+      close(99)
+c$OMP END MASTER
+c$OMP BARRIER 
+      tautab=tautab_omp
+      invtau=invtau_omp
+c
+      ENDIF !debut
 c
 cIM appel simulateur toutes les  NINT(freq_ISCCP/dtime) heures