======================================================================
This subroutine specifies the surface temperature to be used in 1D simulations
COMMON defined in lmdz1d.F:
!#ifdef CPP_1D !INCLUDE "../dyn3d/mod_const_mpi.F90" !INCLUDE "../dyn3d_common/control_mod.F90" !INCLUDE "../dyn3d_common/infotrac.F90" !INCLUDE "../dyn3d_common/disvert.F90" PROGRAM lmdz1d USE ioipsl, only: getin INTEGER forcing_type CALL getin('forcing_type',forcing_type) IF (forcing_type==1000) THEN CALL scm ELSE CALL old_lmdz1d ENDIF END #include "1DUTILS.h" !#endif