/[MITgcm]/MITgcm/pkg/fizhi/fizhi_turb.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_turb.F

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

revision 1.11 by molod, Wed Jul 14 21:47:05 2004 UTC revision 1.12 by molod, Fri Jul 16 20:08:08 2004 UTC
# Line 249  C Set fmu and ed to zero for no backgrou Line 249  C Set fmu and ed to zero for no backgrou
249  C logical begin flag - set to true to indicate a cold start  C logical begin flag - set to true to indicate a cold start
250        logical qbeg            logical qbeg    
251    
252  #if CRAY  #ifdef CRAY
253  #if f77  #ifdef f77
254  cfpp$ expand (qsat)  cfpp$ expand (qsat)
255  #endif  #endif
256  #endif  #endif
# Line 3303  C Line 3303  C
3303   9014 CONTINUE   9014 CONTINUE
3304        IF(IBIT.LE.0)  GO TO 300        IF(IBIT.LE.0)  GO TO 300
3305        INDEX = 0        INDEX = 0
3306  #if CRAY  #ifdef CRAY
3307  CDIR$ NOVECTOR  CDIR$ NOVECTOR
3308  #endif  #endif
3309        DO 9016 I = 1,IRUN        DO 9016 I = 1,IRUN
# Line 3314  CDIR$ NOVECTOR Line 3314  CDIR$ NOVECTOR
3314          ARG1(INDEX) = VZH(I)          ARG1(INDEX) = VZH(I)
3315         ENDIF         ENDIF
3316   9016 CONTINUE   9016 CONTINUE
3317  #if CRAY  #ifdef CRAY
3318  CDIR$ VECTOR  CDIR$ VECTOR
3319  #endif  #endif
3320    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22