/[MITgcm]/MITgcm/pkg/thsice/thsice_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_readparms.F

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

revision 1.19 by jmc, Wed Nov 21 01:53:34 2012 UTC revision 1.20 by heimbach, Sat Mar 30 01:23:58 2013 UTC
# Line 29  C     === Global variables === Line 29  C     === Global variables ===
29  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
30  #include "MNC_PARAMS.h"  #include "MNC_PARAMS.h"
31  #endif  #endif
32    #ifdef ALLOW_COST
33    #include "THSICE_COST.h"
34    #endif
35  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
36  C     === Routine arguments ===  C     === Routine arguments ===
37  C     myThid    :: My Thread Id. number  C     myThid    :: My Thread Id. number
# Line 74  C--   Th-Sea-ICE parameter Line 76  C--   Th-Sea-ICE parameter
76       &     thSIceSnowH_InitFile, thSIceSnowA_InitFile,       &     thSIceSnowH_InitFile, thSIceSnowA_InitFile,
77       &     thSIceEnthp_InitFile, thSIceTsurf_InitFile       &     thSIceEnthp_InitFile, thSIceTsurf_InitFile
78    
79    #ifdef ALLOW_COST
80          NAMELIST /THSICE_COST/
81         &     mult_thsice, thsice_cost_ice_flag
82    #endif
83    
84        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
85    
86        WRITE(msgBuf,'(A)') ' THSICE_READPARMS: opening data.ice'        WRITE(msgBuf,'(A)') ' THSICE_READPARMS: opening data.ice'
# Line 168  C--   Default values (parameters) Line 175  C--   Default values (parameters)
175        thSIceEnthp_InitFile = ' '        thSIceEnthp_InitFile = ' '
176        thSIceTsurf_InitFile = ' '        thSIceTsurf_InitFile = ' '
177    
178    #ifdef ALLOW_COST
179          thsice_cost_ice_flag = 1
180          mult_thsice = 0. _d 0
181    #endif
182    
183  C--   Read parameters from open data file  C--   Read parameters from open data file
184        READ(UNIT=iUnit,NML=THSICE_CONST)        READ(UNIT=iUnit,NML=THSICE_CONST)
# Line 180  C--   Read parameters from open data fil Line 191  C--   Read parameters from open data fil
191        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
192       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
193    
194    #ifdef ALLOW_COST
195          READ(UNIT=iUnit,NML=THSICE_COST)
196          WRITE(msgBuf,'(A)') ' THSICE_READPARMS: read THSICE_PARM02'
197          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
198         &                    SQUEEZE_RIGHT , 1)
199    #endif
200    
201  C--   Close the open data file  C--   Close the open data file
202        CLOSE(iUnit)        CLOSE(iUnit)
203    
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22