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

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

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

revision 1.3 by jmc, Fri Jan 3 03:51:26 2003 UTC revision 1.4 by jmc, Thu Jun 12 17:59:05 2003 UTC
# Line 24  C     !USES: Line 24  C     !USES:
24  C     == Global variables ===  C     == Global variables ===
25  #include "AIM_SIZE.h"  #include "AIM_SIZE.h"
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  c #include "PARAMS.h"  #include "PARAMS.h"
28  #include "AIM_PARAMS.h"  #include "AIM_PARAMS.h"
29    
30  C-   Physical constants + functions of sigma and latitude  C-   Physical constants + functions of sigma and latitude
# Line 248  C--   Print out parameter values : Line 248  C--   Print out parameter values :
248        WRITE(msgBuf,'(A)') '// ==================================='        WRITE(msgBuf,'(A)') '// ==================================='
249        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
250    
251           CALL WRITE_0D_L( useLand, INDEX_NONE,
252         &                 'useLand =',
253         &'   /* use Land package for surf.BC over land  */')      
254    
255  C- namelist AIM_PARAMS:  C- namelist AIM_PARAMS:
256         CALL WRITE_0D_L( aim_useFMsurfBC, INDEX_NONE,         CALL WRITE_0D_L( aim_useFMsurfBC, INDEX_NONE,
257       &                 'aim_useFMsurfBC =',       &                 'aim_useFMsurfBC =',
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22