/[MITgcm]/MITgcm/pkg/aim_v23/aim_initialise.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/aim_initialise.F

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

revision 1.12 by jmc, Tue Aug 8 03:14:33 2006 UTC revision 1.13 by jmc, Wed Oct 18 20:08:15 2006 UTC
# Line 30  C     === Global variables === Line 30  C     === Global variables ===
30  #include "AIM_FFIELDS.h"  #include "AIM_FFIELDS.h"
31  c #include "AIM_GRID.h"  c #include "AIM_GRID.h"
32  c #include "AIM_DIAGS.h"  c #include "AIM_DIAGS.h"
 #ifdef ALLOW_MNC  
 #include "MNC_PARAMS.h"  
 #endif  
33    
34  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
35  C     == Routine arguments ==  C     == Routine arguments ==
# Line 57  C---+----1----+----2----+----3----+----4 Line 54  C---+----1----+----2----+----3----+----4
54    
55        _BEGIN_MASTER(myThid )        _BEGIN_MASTER(myThid )
56    
 C--  Set default value for AIM interface code (AIM_PARAMS.h):  
       aim_useFMsurfBC = .TRUE.  
       aim_useMMsurfFc = .FALSE.  
       aim_surfPotTemp = .FALSE.  
       aim_energPrecip = .FALSE.  
       aim_splitSIOsFx = .FALSE.  
       aim_clrSkyDiag  = .FALSE.  
 #ifdef ALLOW_MNC  
       aim_timeave_mnc       = timeave_mnc .AND. useMNC  
       aim_snapshot_mnc      = snapshot_mnc .AND. useMNC  
       aim_pickup_write_mnc  = pickup_write_mnc .AND. useMNC  
       aim_pickup_read_mnc   = pickup_read_mnc .AND. useMNC  
 #else  
       aim_timeave_mnc       = .FALSE.  
       aim_snapshot_mnc      = .FALSE.  
       aim_pickup_write_mnc  = .FALSE.  
       aim_pickup_read_mnc   = .FALSE.  
 #endif  
       aim_MMsufx = '.bin'  
       aim_MMsufxLength = 4  
       aim_LandFile = ' '  
       aim_albFile  = ' '  
       aim_vegFile  = ' '  
       aim_sstFile  = ' '  
       aim_lstFile  = ' '  
       aim_oiceFile = ' '  
       aim_snowFile = ' '  
       aim_swcFile  = ' '  
       aim_dragStrato = 0.  
       aim_taveFreq = taveFreq  
       aim_diagFreq = dumpFreq  
       aim_tendFreq = 0.  
   
57  C--  Set default value for atmos. physics parameters:  C--  Set default value for atmos. physics parameters:
58        pGround = atm_Po        pGround = atm_Po
59        DO k=1,Nr        DO k=1,Nr
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22