/[lmdze]/trunk/libf/dyn3d/abort_gcm.f90
ViewVC logotype

Contents of /trunk/libf/dyn3d/abort_gcm.f90

Parent Directory Parent Directory | Revision Log Revision Log


Revision 12 - (show annotations)
Mon Jul 21 16:05:07 2008 UTC (15 years, 10 months ago) by guez
File size: 799 byte(s)
-- Minor modification of input/output:

Created procedure "read_logic". Variables of module "logic" are read
by "read_logic" instead of "conf_gcm". Variable "offline" of module
"conf_gcm" is read from namelist instead of "*.def".

Deleted arguments "dtime", "co2_ppm_etat0", "solaire_etat0",
"tabcntr0" and local variables "radpas", "tab_cntrl" of
"phyetat0". "phyetat0" does not read "controle" in "startphy.nc" any
longer. "phyetat0" now reads global attribute "itau_phy" from
"startphy.nc". "phyredem" does not create variable "controle" in
"startphy.nc" any longer. "phyredem" now writes global attribute
"itau_phy" of "startphy.nc". Deleted argument "tabcntr0" of
"printflag". Removed diagnostic messages written by "printflag" for
comparison of the variable "controle" of "startphy.nc" and the
variables read from "*.def" or namelist input.

-- Removing unwanted functionality:

Removed variable "lunout" from module "iniprint", replaced everywhere
by standard output.

Removed case "ocean == 'couple'" in "clmain", "interfsurf_hq" and
"physiq". Removed procedure "interfoce_cpl".

-- Should not change anything at run time:

Automated creation of graphs in documentation. More documentation on
input files.

Converted Fortran files to free format: "phyredem.f90", "printflag.f90".

Split module "clesphy" into "clesphys" and "clesphys2".

Removed variables "conser", "leapf", "forward", "apphys", "apdiss" and
"statcl" from module "logic". Added arguments "conser" to "advect",
"leapf" to "integrd". Added local variables "forward", "leapf",
"apphys", "conser", "apdiss" in "leapfrog".

Added intent attributes.

Deleted arguments "dtime" of "phyredem", "pdtime" of "flxdtdq", "sh"
of "phytrac", "dt" of "yamada".

Deleted local variables "dtime", "co2_ppm_etat0", "solaire_etat0",
"length", "tabcntr0" in "physiq". Replaced all references to "dtime"
by references to "pdtphys".

1 module abort_gcm_m
2
3 implicit none
4
5 contains
6
7 SUBROUTINE abort_gcm(modname, message, ierr)
8
9 ! From abort_gcm.F, version 1.1.1.1 2004/05/19 12:53:05
10
11 ! Stops the simulation cleanly, closing files and printing various
12 ! comments
13
14 ! Input: modname = name of calling program
15 ! message = stuff to print
16 ! ierr = severity of situation ( = 0 normal )
17
18 USE IOIPSL, only: histclo
19
20 character(len=*), intent(in):: modname
21 integer, intent(in):: ierr
22 character(len=*), intent(in):: message
23
24 !-------------------
25
26 print *, 'abort_gcm'
27
28 call histclo
29 print *, 'Stopping in ', modname
30 print *, 'Reason = ', trim(message)
31 print *, 'Houston, we have a problem ', ierr
32 STOP 1
33
34 END SUBROUTINE abort_gcm
35
36 end module abort_gcm_m

  ViewVC Help
Powered by ViewVC 1.1.21