#include "conf_gcm.F90"
#include "compar1d.h"
#include "flux_arp.h"
#include "tsoilnudge.h"
#include "fcg_gcssold.h"
#include "fcg_racmo.h"
#include "YOMCST.h"
#include "netcdf.inc"
#include "dimensions.h"
Go to the source code of this file.
|
!$Id we still need to | use (a local version of) getin use ioipsl_getincom USE print_control_mod |
|
!$Id we still need to ch2 ch3 ch4 *Initilisation parametres du lmdz1D lunout | IF (lunout/=5.and.lunout/=6) THEN ENDIF!Config Key |
|
! $Id we still need to use |
( |
a local version |
of | ) |
|
! $Id we still need to ch2 ch3 ch4* Initilisation parametres du lmdz1D !initialisations |
! surface temperature imposed |
INTERFACE SUBROUTINE SWUVO3 PTR &&USE JPRB USE ONLY |