Changeset 247 for LMDZ.3.3/trunk/libf/phylmd

Timestamp:

Jun 30, 2001, 12:14:51 AM (23 years ago)

Author:

lmdz

Message:

Probleme avec le makefile (module)
LF

File:

• LMDZ.3.3/trunk/libf/phylmd/conf_phys.F90 (modified) (4 diffs)

LMDZ.3.3/trunk/libf/phylmd/conf_phys.F90

@@ -3 +3 @@
 !
 
-!module conf_phys
-!
-!  use IOIPSL
-!  implicit none
-!
-!  public conf_phys
-!
-!contains
-
   subroutine conf_phys(ocean, ok_veget, ok_journe, ok_mensuel, ok_instan)
 
+   use IOIPSL
+   implicit none
+
 !
-! Configuration du module "physique" de LMDZ a l'aide de la fonction
+! Configuration de la "physique" de LMDZ a l'aide de la fonction
 ! GETIN de IOIPSL
 !
 ! LF 05/2001
 !
-
-  use IOIPSL     
 
 !
@@ -36 +28 @@
   logical              :: ok_veget
   logical              :: ok_journe, ok_mensuel, ok_instan
+! Local
+  integer              :: numout = 6
 
 !
@@ -89 +83 @@
 !
 
-    write(numout,*)' Config ocean = ', ocean
-    write(numout,*)' Config veget = ', ok_veget
-    write(numout,*)' Sortie journaliere = ', ok_journe
-    write(numout,*)' Sortie mensuelle = ', ok_mensuel
-    write(numout,*)' Sortie instantanee = ', ok_instan
+  write(numout,*)' ##############################################'
+  write(numout,*)' Configuration des parametres de la physique: '
+  write(numout,*)' Config ocean = ', ocean
+  write(numout,*)' Config veget = ', ok_veget
+  write(numout,*)' Sortie journaliere = ', ok_journe
+  write(numout,*)' Sortie mensuelle = ', ok_mensuel
+  write(numout,*)' Sortie instantanee = ', ok_instan
 
 
@@ -100 +96 @@
   end subroutine conf_phys
 
-!end module conf_phys