Ignore:
Timestamp:
Mar 23, 2011, 4:23:31 PM (14 years ago)
Author:
slebonnois
Message:

SL: modifications pour arriver a compiler le gcm VENUS !
Ca marche !
A noter: modifs de makelmdz

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/libf/phyvenus/clmain.classic

    r97 r101  
    3434      USE ioipsl
    3535      USE interface_surf
     36      use dimphy
    3637      IMPLICIT none
    3738c======================================================================
    … …  
    6566c======================================================================
    6667#include "dimensions.h"
    67 #include "dimphy.h"
    6868c$$$ PB ajout pour soil
    6969#include "dimsoil.h"
    … …  
    488488
    489489      USE interface_surf
     490      use dimphy
    490491
    491492      IMPLICIT none
    … …  
    495496c======================================================================
    496497#include "dimensions.h"
    497 #include "dimphy.h"
    498498#include "YOMCST.h"
    499499#include "dimsoil.h"
    … …  
    766766     e                  paprs,pplay,delp,
    767767     s                  d_ven,flux_v)
     768
     769      use dimphy
    768770      IMPLICIT none
    769771c======================================================================
    … …  
    789791c======================================================================
    790792#include "dimensions.h"
    791 #include "dimphy.h"
    792793#include "iniprint.h"
    793794      INTEGER knon
    … …  
    894895     .                  ts,u,v,t,
    895896     .                  pcfm, pcfh)
     897
     898      use dimphy
    896899      IMPLICIT none
    897900c======================================================================
    … …  
    914917c======================================================================
    915918#include "dimensions.h"
    916 #include "dimphy.h"
    917919#include "YOMCST.h"
    918920#include "iniprint.h"
    … …  
    11771179      SUBROUTINE coefkz2(knon, paprs, pplay,t,
    11781180     .                  pcfm, pcfh)
     1181
     1182      use dimphy
    11791183      IMPLICIT none
    11801184c======================================================================
    … …  
    11931197c======================================================================
    11941198#include "dimensions.h"
    1195 #include "dimphy.h"
    11961199#include "YOMCST.h"
    11971200#include "iniprint.h"
Note: See TracChangeset for help on using the changeset viewer.