/[MITgcm]/MITgcm/pkg/streamice/streamice_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/streamice/streamice_readparms.F

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

revision 1.17 by dgoldberg, Tue Nov 29 14:22:20 2016 UTC revision 1.18 by mlosch, Wed Aug 9 15:23:36 2017 UTC
# Line 417  C     Read parameters from open data fil Line 417  C     Read parameters from open data fil
417       &    'STREAMICE_READPARMS: read third param block'       &    'STREAMICE_READPARMS: read third param block'
418        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
419       &    SQUEEZE_RIGHT , 1)       &    SQUEEZE_RIGHT , 1)
420    #ifdef SINGLE_DISK_IO
421        CLOSE(iUnit)        CLOSE(iUnit)
422    #else
423          CLOSE(iUnit,STATUS='DELETE')
424    #endif /* SINGLE_DISK_IO */
425    
426  !#ifdef ALLOW_STREAMICE_FLUX_CONTROL  !#ifdef ALLOW_STREAMICE_FLUX_CONTROL
427  !  !
# Line 431  C     Read parameters from open data fil Line 435  C     Read parameters from open data fil
435  !     &    'STREAMICE_READPARMS: read flux_ctrl param block'  !     &    'STREAMICE_READPARMS: read flux_ctrl param block'
436  !      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,  !      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
437  !     &    SQUEEZE_RIGHT , 1)  !     &    SQUEEZE_RIGHT , 1)
438    !#ifdef SINGLE_DISK_IO
439  !      CLOSE(iUnit)  !      CLOSE(iUnit)
440    !#else
441    !      CLOSE(iUnit,STATUS='DELETE')
442    !#endif /* SINGLE_DISK_IO */
443  !#endif  !#endif
444    
445        streamice_nstep_velocity = NINT (streamice_vel_update / deltaT)        streamice_nstep_velocity = NINT (streamice_vel_update / deltaT)
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22