Oasis3 4.0.2
|
00001 MODULE mod_experiment 00002 ! 00003 ! -- experiment.h 26-08-95 Version 2.0 Author: Laurent Terray 00004 ! ************ 14-12-97 Version 2.2 addition of info mode (lmodinf) 00005 ! 14-03-99 Version 2.3 CHARACTER*4 cjobnam (S. Valcke) 00006 ! 07-09-00 Version 2.5 INTEGER nbcplproc (S. Valcke) 00007 ! INTEGER nbtotproc 00008 ! CHARACTER*80 cmpiarg 00009 ! 18-03-02 Version 2.5 changed in module 00010 !@ 00011 !@ !ontents : variables related to the simulation being performed 00012 !@ -------- 00013 !@ 00014 !@ -- cjobnam : experiment name 00015 !@ 00016 !@ -- cmodnam : models name 00017 !@ 00018 !@ -- nmodel : number of models being coupled 00019 !@ 00020 !@ -- nmseq : number of sequential models 00021 !@ 00022 !@ -- lmodinf : information mode (extended header) 00023 !@ 00024 !@ -- nbcplproc: number of model processes implied in the coupling 00025 !@ 00026 !@ -- nbtotproc: total number of model processes 00027 !@ 00028 !@ -- cmpiarg: launching argument for each model 00029 ! 00030 ! ------------------------------------------------------------------- 00031 ! 00032 USE mod_kinds_oasis 00033 INTEGER (kind=ip_intwp_p) :: nmseq 00034 INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: nbcplproc, nbtotproc 00035 INTEGER (kind=ip_intwp_p), DIMENSION(:), ALLOCATABLE :: iga_unitmod 00036 ! 00037 CHARACTER(len=4) :: cjobnam 00038 CHARACTER(len=6), DIMENSION(:), ALLOCATABLE :: cmodnam 00039 CHARACTER(len=80), DIMENSION(:), ALLOCATABLE :: cmpiarg 00040 ! 00041 LOGICAL :: lmodinf 00042 ! 00043 ! ------------------------------------------------------------------- 00044 ! 00045 END MODULE mod_experiment 00046 00047 00048