/[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.13 by jmc, Wed Oct 18 20:08:15 2006 UTC revision 1.14 by jmc, Wed Apr 4 01:51:34 2007 UTC
# Line 7  CBOP Line 7  CBOP
7  C     !ROUTINE: AIM_INITIALISE  C     !ROUTINE: AIM_INITIALISE
8  C     !INTERFACE:  C     !INTERFACE:
9        SUBROUTINE AIM_INITIALISE( myThid )        SUBROUTINE AIM_INITIALISE( myThid )
10    
11  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
12  C     *==================================================================*  C     *==================================================================*
13  C     | S/R AIM_INITIALISE  C     | S/R AIM_INITIALISE
# Line 16  C     | 1) call iniphys (=> set paramete Line 17  C     | 1) call iniphys (=> set paramete
17  C     | 2) read AIM parameters  C     | 2) read AIM parameters
18  C     *==================================================================*  C     *==================================================================*
19  C     \ev  C     \ev
   
20  C     !USES:  C     !USES:
21        IMPLICIT NONE        IMPLICIT NONE
22    
# Line 33  c #include "AIM_DIAGS.h" Line 33  c #include "AIM_DIAGS.h"
33    
34  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
35  C     == Routine arguments ==  C     == Routine arguments ==
36  C     myThid :: my Thread Id number  C     myThid :: my Thread Id. number
37        INTEGER myThid        INTEGER myThid
38    
39  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
# Line 115  C--   Initialise Land Fraction (in AIM_F Line 115  C--   Initialise Land Fraction (in AIM_F
115        IF ( aim_LandFile .NE. ' '  ) THEN        IF ( aim_LandFile .NE. ' '  ) THEN
116           _BARRIER           _BARRIER
117           CALL READ_REC_XY_RS(aim_LandFile,aim_landFr,1,nIter0,myThid)           CALL READ_REC_XY_RS(aim_LandFile,aim_landFr,1,nIter0,myThid)
118    C-    better to fill land fraction overlap (likely to be needed for sea-ice)
119             CALL EXCH_XY_RS( aim_landFr, myThid )
120        ENDIF        ENDIF
121    
122  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22