--- trunk/libf/phylmd/Mobidic/regr_pr_o3.f90	2008/03/31 13:58:05	9
+++ trunk/libf/phylmd/Mobidic/regr_pr_o3.f90	2008/04/18 14:45:53	10
@@ -45,6 +45,7 @@
 
     !------------------------------------------------------------
 
+    print *, "Call sequence information: regr_pr_o3"
     call assert(shape(o3_mob_regr) == (/iim + 1, jjm + 1, llm/), "regr_pr_o3")
 
     call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid)