Changeset 4208 for dynamico_lmdz/simple_physics/phyparam/param

Timestamp:

Dec 30, 2019, 3:46:20 PM (6 years ago)

Author:

dubos

Message:

simple_physics : moved soil.F90 to module surface.F90 + cleanup

Location:

dynamico_lmdz/simple_physics/phyparam/param

Files:

• coefdifv.F (deleted)
• iniphyparam.F (modified) (2 diffs)
• phyparam.F (modified) (2 diffs)
• surface.h (deleted)

dynamico_lmdz/simple_physics/phyparam/param/iniphyparam.F

@@ -15 +15 @@
       USE astronomy
       USE turbulence, ONLY : lmixmin, emin_turb 
+      USE surface
       IMPLICIT NONE
 
@@ -52 +53 @@
  
 #include "callkeys.h"
-#include "surface.h"
 #include "iniprint.h"
 

dynamico_lmdz/simple_physics/phyparam/param/phyparam.F

@@ -18 +18 @@
       USE radiative_sw, ONLY : sw
       USE radiative_lw, ONLY : lw
-
+      USE surface
 c     
       IMPLICIT NONE
@@ -83 +83 @@
 #include "dimensions.h"
 #include "callkeys.h"
-#include "surface.h"
+c#include "surface.h"
 
 c    Arguments :