/[MITgcm]/MITgcm_contrib/darwin/pkg/gchem/gchem_fields_load.F
ViewVC logotype

Annotation of /MITgcm_contrib/darwin/pkg/gchem/gchem_fields_load.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.2 - (hide annotations) (download)
Wed Jul 2 23:13:53 2008 UTC (17 years ago) by jahn
Branch: MAIN
CVS Tags: ctrb_darwin_ckpt61i_20090224, ctrb_darwin_ckpt61r_20090626, ctrb_darwin_ckpt61m_20090430, ctrb_darwin_ckpt61d_20081212, ctrb_darwin_ckpt61t_20090820, ctrb_darwin_ckpt61v_20091024, ctrb_darwin_ckpt61w_20091024, ctrb_darwin_ckpt61h_20090224, ctrb_darwin_ckpt62a_20100117, ctrb_darwin_ckpt61s_20090630, ctrb_darwin_ckpt61_20080822, ctrb_darwin_ckpt61y_20091120, ctrb_darwin_ckpt61q_20090626, ctrb_darwin_ckpt61o_20090527, ctrb_darwin_ckpt61d_20081013, ctrb_darwin_ckpt61k_20090312, ctrb_darwin_ckpt61i_20090312, ctrb_darwin_ckpt62_20091227, ctrb_darwin_ckpt61o_20090610, ctrb_darwin_ckpt61x_20091024, ctrb_darwin_ckpt61p_20090610, ctrb_darwin_ckpt61b_20080822, ctrb_darwin_ckpt61u_20090825, ctrb_darwin_ckpt61l_20090408, ctrb_darwin_ckpt62b_20100201, ctrb_darwin_ckpt61z_20091207, ctrb_darwin_ckpt62c_20100303, ctrb_darwin_ckpt61n_20090519, ctrb_darwin_ckpt61n_20090513
Changes since 1.1: +5 -1 lines 
only call darwin if useDARWIN
1 jahn 1.2 C $Header: /u/gcmpack/MITgcm_contrib/darwin/pkg/gchem/gchem_fields_load.F,v 1.1 2008/01/11 21:28:02 jahn Exp $
2 jahn 1.1 C $Name: $
3    
4     #include "GCHEM_OPTIONS.h"
5    
6     CBOP
7     C !ROUTINE: GCHEM_FIELDS_LOAD
8    
9     C !INTERFACE: ==========================================================
10     SUBROUTINE GCHEM_FIELDS_LOAD (
11     I myTime, myIter, myThid)
12    
13     C !DESCRIPTION:
14     C calls routines which read in fields needed for any tracer experiment
15     C !USES: ===============================================================
16     IMPLICIT NONE
17 jahn 1.2 #include "EEPARAMS.h"
18     #include "GCHEM.h"
19 jahn 1.1
20     C !INPUT PARAMETERS: ===================================================
21     C myTime :: current time
22     C myIter :: current iteration
23     C myThid :: thread number
24     _RL myTime
25     INTEGER myIter
26     INTEGER myThid
27    
28     C !LOCAL VARIABLES: ====================================================
29     CEOP
30    
31     #ifdef ALLOW_GCHEM
32    
33     cccccccccccccccccccccccccc
34     c load external data c
35     cccccccccccccccccccccccccc
36     #ifdef ALLOW_DIC
37     CALL DIC_FIELDS_LOAD (myIter,myTime,myThid)
38     #endif
39    
40    
41     #ifdef ALLOW_CFC
42     CALL CFC_FIELDS_LOAD(myIter,myTime,myThid)
43     #endif
44    
45     #ifdef ALLOW_DARWIN
46 jahn 1.2 IF ( useDARWIN ) THEN
47 jahn 1.1 call DARWIN_FIELDS_LOAD(myIter,myTime,myThid)
48 jahn 1.2 ENDIF
49 jahn 1.1 #endif
50    
51     #ifdef ALLOW_NPZDCAR
52     call NPZDCAR_FIELDS_LOAD(myIter,myTime,myThid)
53     #endif
54    
55    
56     #endif /* ALLOW_GCHEM */
57    
58     RETURN
59     END
60    
  ViewVC Help
Powered by ViewVC 1.1.22