Changeset 2654 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Oct 7, 2016, 12:51:08 PM (8 years ago)
Author:
jyg
Message:

small bug in cva_driver.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/cva_driver.F90

    r2638 r2654  
    10771077        DO k = 1,nd
    10781078        write (6, '(i4,5(1x,e13.6))'), &
    1079           k, mp(idcum(igout),k), water(idcum(igout),k), ice(idcum(igout),k), &
    1080            evap(idcum(igout),k), fondue(idcum(igout),k)
     1079          k, mp(igout,k), water(igout,k), ice(igout,k), &
     1080           evap(igout,k), fondue(igout,k)
    10811081        ENDDO
    10821082        Print *, 'cva_driver after cv3_unsat: wdtrainA, wdtrainM '
    10831083        DO k = 1,nd
    10841084        write (6, '(i4,2(1x,e13.6))'), &
    1085            k, wdtrainA(idcum(igout),k), wdtrainM(idcum(igout),k)
     1085           k, wdtrainA(igout,k), wdtrainM(igout,k)
    10861086        ENDDO
    10871087      ENDIF
     
    11291129!
    11301130      IF (debut) THEN
    1131         PRINT *, ' cv3_yield -> fqd(1) = ', fqd(idcum(igout), 1)
     1131        PRINT *, ' cv3_yield -> fqd(1) = ', fqd(igout, 1)
    11321132      END IF !(debut) THEN
    11331133!   
    11341134      IF (prt_level >= 10) THEN
    11351135        Print *, 'cva_driver after cv3_yield:ft(1) , ftd(1) ', &
    1136                     ft(idcum(igout),1), ftd(idcum(igout),1)
     1136                    ft(igout,1), ftd(igout,1)
    11371137        Print *, 'cva_driver after cv3_yield:fq(1) , fqd(1) ', &
    1138                     fq(idcum(igout),1), fqd(idcum(igout),1)
     1138                    fq(igout,1), fqd(igout,1)
    11391139      ENDIF
    11401140!   
Note: See TracChangeset for help on using the changeset viewer.