/[MITgcm]/MITgcm/pkg/bulk_force/bulkf_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/bulk_force/bulkf_readparms.F

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

revision 1.4 by jmc, Sun Jan 22 15:51:35 2006 UTC revision 1.5 by jmc, Tue Mar 14 15:57:31 2006 UTC
# Line 171  C-    Define other constants (from previ Line 171  C-    Define other constants (from previ
171        Qcoef  = 6.11 _d 0 * 0.622 _d 0 / p0        Qcoef  = 6.11 _d 0 * 0.622 _d 0 / p0
172        Sha    = Rgas / .286 _d 0        Sha    = Rgas / .286 _d 0
173    
174          useQnetch = QnetFile .NE. ' '
175          useEmPch  = EmPFile  .NE. ' '
176    
177  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
178        iUnit = standardMessageUnit        iUnit = standardMessageUnit
179  c     iUnit=88  c     iUnit=88
# Line 210  c     OPEN(iUnit,file='bulkf_check_param Line 213  c     OPEN(iUnit,file='bulkf_check_param
213        WRITE(iUnit,*) 'BlkF: FSTAB    =', FSTAB        WRITE(iUnit,*) 'BlkF: FSTAB    =', FSTAB
214  #endif  #endif
215        WRITE(iUnit,*) 'BlkF: useFluxFormula_AIM=',useFluxFormula_AIM        WRITE(iUnit,*) 'BlkF: useFluxFormula_AIM=',useFluxFormula_AIM
216        WRITE(iUnit,*) 'BlkF: calcWindStress    =',calcWindStress        WRITE(iUnit,*) 'BlkF: calcWindStress  =', calcWindStress
217          WRITE(iUnit,*) 'BlkF: useQnetch       =', useQnetch
218          WRITE(iUnit,*) 'BlkF: useEmPch        =', useEmPch
219        WRITE(iUnit,*) 'BlkF: blk_taveFreq=', blk_taveFreq        WRITE(iUnit,*) 'BlkF: blk_taveFreq=', blk_taveFreq
220        IF (iUnit.EQ.88) CLOSE(iUnit)        IF (iUnit.EQ.88) CLOSE(iUnit)
221  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22