--- MITgcm/pkg/fizhi/fizhi_init_fixed.F	2004/09/28 19:30:24	1.18
+++ MITgcm/pkg/fizhi/fizhi_init_fixed.F	2004/09/30 16:25:58	1.19
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/fizhi/fizhi_init_fixed.F,v 1.18 2004/09/28 19:30:24 molod Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/fizhi/fizhi_init_fixed.F,v 1.19 2004/09/30 16:25:58 molod Exp $
 C $Name:  $
 
 #include "FIZHI_OPTIONS.h"
@@ -102,7 +102,7 @@
        do L = 2,Nrphys+1
         pressure0(L)=pressure0(L-1)-dpphys0(1,1,L-1,1,1)/100.
        enddo
-C Now flip pressure to a top-down array to send to fizhi
+C Now flip pressure to a top-down array to send to fizhi init chem
        do L = 1,Nrphys+1
         pressure(L)=pressure0(Nrphys+2-L)
        enddo