/[MITgcm]/MITgcm_contrib/jscott/pkg_atm2d/atm2d_init_vars.F
ViewVC logotype

Diff of /MITgcm_contrib/jscott/pkg_atm2d/atm2d_init_vars.F

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

revision 1.1 by jscott, Fri Aug 11 18:55:49 2006 UTC revision 1.2 by jscott, Tue May 1 19:38:47 2007 UTC
# Line 2  Line 2 
2  C  C
3        SUBROUTINE ATM2D_INIT_VARS(myThid)        SUBROUTINE ATM2D_INIT_VARS(myThid)
4  C     |==========================================================|  C     |==========================================================|
5  C     | Initialization steps which depend on pickups loading     |  C     | Initialization steps which depend on pickups loading.    |
6  C     \==========================================================/  C     \==========================================================/
7        IMPLICIT NONE        IMPLICIT NONE
8    
# Line 15  C     myThid - thread number for this in Line 15  C     myThid - thread number for this in
15        INTEGER myThid        INTEGER myThid
16    
17  C     === Local variables ===  C     === Local variables ===
18          INTEGER j
19    
20        CALL atmosphere(0.0,0)        CALL atmosphere(0.0,0)   ! initialize the atmospheric model
21    
22  #ifdef CLM  #ifdef CLM
23        CALL clm4mit2d        CALL clm4mit2d           ! initialize CLM
24  #endif  #endif
25    
26  #ifdef ML_2D  #ifdef ML_2D
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22