Changeset 1259 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/newmicro.F

Timestamp:

Nov 10, 2009, 11:24:15 AM (15 years ago)

Author:

idelkadi

Message:

-Rajout de la cles fortran ok_cosp pour tourner avec ou sans calcul cosp
-Declaration de ok_cosp dans clesphys.h
-Lecture dans physiq.def via conf_phys.F90
-Menage dans newmicro.F

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/newmicro.F (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/newmicro.F

@@ -304 +304 @@
               reliq(i,k)=rel
               reice(i,k)=rei 
-              if (i.eq.1) then
-              print*,'Dans newmicro rel, rei :',rel, rei
-              print*,'Dans newmicro reliq, reice :',
-     $             reliq(i,k),reice(i,k)
-              endif
+!              if (i.eq.1) then
+!              print*,'Dans newmicro rel, rei :',rel, rei
+!              print*,'Dans newmicro reliq, reice :',
+!     $             reliq(i,k),reice(i,k)
+!              endif
 
             ENDDO