Ignore:
Timestamp:
Jun 30, 2001, 12:14:51 AM (23 years ago)
Author:
lmdz
Message:

Probleme avec le makefile (module)
LF

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/trunk/libf/phylmd/conf_phys.F90

    r219 r247  
    33!
    44
    5 !module conf_phys
    6 !
    7 !  use IOIPSL
    8 !  implicit none
    9 !
    10 !  public conf_phys
    11 !
    12 !contains
    13 
    145  subroutine conf_phys(ocean, ok_veget, ok_journe, ok_mensuel, ok_instan)
    156
     7   use IOIPSL
     8   implicit none
     9
    1610!
    17 ! Configuration du module "physique" de LMDZ a l'aide de la fonction
     11! Configuration de la "physique" de LMDZ a l'aide de la fonction
    1812! GETIN de IOIPSL
    1913!
    2014! LF 05/2001
    2115!
    22 
    23   use IOIPSL     
    2416
    2517!
     
    3628  logical              :: ok_veget
    3729  logical              :: ok_journe, ok_mensuel, ok_instan
     30! Local
     31  integer              :: numout = 6
    3832
    3933!
     
    8983!
    9084
    91     write(numout,*)' Config ocean = ', ocean
    92     write(numout,*)' Config veget = ', ok_veget
    93     write(numout,*)' Sortie journaliere = ', ok_journe
    94     write(numout,*)' Sortie mensuelle = ', ok_mensuel
    95     write(numout,*)' Sortie instantanee = ', ok_instan
     85  write(numout,*)' ##############################################'
     86  write(numout,*)' Configuration des parametres de la physique: '
     87  write(numout,*)' Config ocean = ', ocean
     88  write(numout,*)' Config veget = ', ok_veget
     89  write(numout,*)' Sortie journaliere = ', ok_journe
     90  write(numout,*)' Sortie mensuelle = ', ok_mensuel
     91  write(numout,*)' Sortie instantanee = ', ok_instan
    9692
    9793
     
    10096  end subroutine conf_phys
    10197
    102 !end module conf_phys
Note: See TracChangeset for help on using the changeset viewer.