Changeset 1168 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F

Timestamp:

Jun 8, 2009, 12:28:43 PM (16 years ago)

Author:

idelkadi

Message:

Rajout des facteurs f_cdrag_stable, f_cdrag_ter et f_cdrag_oce dans le calcul Cdrags (lus dans physiq.def)
Rajout du facteur f_rugoro pour rugoro (lu dans physiq.def)
Rajout de guitin pour lire les parametres de sorties dans physiq.def (sorties dans des regions limitees, ...)

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F (modified) (2 diffs)

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

@@ -1 @@
-c
 c#define IO_DEBUG
 
@@ -1384 +1383 @@
          ENDIF
 
-           rugoro=0.
+           DO i=1,klon
+             rugoro(i) = f_rugoro * MAX(1.0e-05, zstd(i)*zsig(i)/2.0)
+           ENDDO
+
 c34EK
          IF (ok_orodr) THEN
-
-           rugoro=0.
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!