--- MITgcm_contrib/dgoldberg/streamice/streamice_readparms.F 2012/05/14 16:47:27 1.2 +++ MITgcm_contrib/dgoldberg/streamice/streamice_readparms.F 2012/07/24 20:49:41 1.3 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/dgoldberg/streamice/streamice_readparms.F,v 1.2 2012/05/14 16:47:27 dgoldberg Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm_contrib/dgoldberg/streamice/streamice_readparms.F,v 1.3 2012/07/24 20:49:41 dgoldberg Exp $ C $Name: $ @@ -174,16 +174,16 @@ & 'STREAMICE_READPARMS: read first param block' CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, & SQUEEZE_RIGHT , 1) - READ(UNIT=iUnit,NML=STREAMICE_PARM02) IF (TRIM(STREAMICEthickInit) .eq. "PARAM") THEN + READ(UNIT=iUnit,NML=STREAMICE_PARM02) WRITE(msgBuf,'(A)') & 'STREAMICE_READPARMS: read second param block' CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, & SQUEEZE_RIGHT , 1) - READ(UNIT=iUnit,NML=STREAMICE_PARM03) ENDIF + READ(UNIT=iUnit,NML=STREAMICE_PARM03) WRITE(msgBuf,'(A)') & 'STREAMICE_READPARMS: read third param block' CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,