source: CPL/oasis3/trunk/src/mod/oasis3/src/mod_experiment.F90 @ 1677

Last change on this file since 1677 was 1677, checked in by aclsce, 12 years ago

Imported oasis3 (tag ipslcm5a) from cvs server to svn server (igcmg project).

File size: 1.5 KB
Line 
1MODULE mod_experiment
2!
3! -- experiment.h   26-08-95   Version 2.0   Author: Laurent Terray
4!    ************   14-12-97   Version 2.2   addition of info mode (lmodinf)
5!                   14-03-99   Version 2.3   CHARACTER*4 cjobnam (S. Valcke)
6!                   07-09-00   Version 2.5   INTEGER nbcplproc (S. Valcke)
7!                                            INTEGER nbtotproc
8!                                            CHARACTER*80 cmpiarg
9!                   18-03-02   Version 2.5   changed in module   
10!@
11!@  !ontents : variables related to the simulation being performed
12!@  --------
13!@
14!@ -- cjobnam : experiment name
15!@
16!@ -- cmodnam : models name
17!@
18!@ -- nmodel : number of models being coupled
19!@
20!@ -- nmseq : number of sequential models
21!@
22!@ -- lmodinf : information mode (extended header)
23!@
24!@ -- nbcplproc: number of model processes implied in the coupling
25!@
26!@ -- nbtotproc: total number of model processes
27!@
28!@ -- cmpiarg: launching argument for each model
29!
30! -------------------------------------------------------------------
31!
32  USE mod_kinds_oasis
33  INTEGER (kind=ip_intwp_p) :: nmseq
34  INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nbcplproc, nbtotproc
35  INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: iga_unitmod
36!
37  CHARACTER(len=4) :: cjobnam
38  CHARACTER(len=6), DIMENSION(:), ALLOCATABLE :: cmodnam
39  CHARACTER(len=80), DIMENSION(:), ALLOCATABLE :: cmpiarg
40!
41  LOGICAL :: lmodinf
42!
43!     -------------------------------------------------------------------
44!
45END MODULE mod_experiment
46
47
48
Note: See TracBrowser for help on using the repository browser.