Changeset 714 for trunk/NEMO/C1D_SRC/step1d.F90

Timestamp:

2007-10-11T11:58:02+02:00 (17 years ago)

Author:

smasson

Message:

replace qt by qns, see ticket:11

File:

• trunk/NEMO/C1D_SRC/step1d.F90 (modified) (1 diff)

trunk/NEMO/C1D_SRC/step1d.F90

@@ -152 +152 @@
          CALL prt_ctl(tab2d_1=emp    , clinfo1=' emp  -   : ', mask1=tmask, ovlap=1)
          CALL prt_ctl(tab2d_1=emps   , clinfo1=' emps -   : ', mask1=tmask, ovlap=1)
-         CALL prt_ctl(tab2d_1=qt     , clinfo1=' qt   -   : ', mask1=tmask, ovlap=1)
+         CALL prt_ctl(tab2d_1=qns    , clinfo1=' qns  -   : ', mask1=tmask, ovlap=1)
          CALL prt_ctl(tab2d_1=qsr    , clinfo1=' qsr  -   : ', mask1=tmask, ovlap=1)
          CALL prt_ctl(tab2d_1=runoff , clinfo1=' runoff   : ', mask1=tmask, ovlap=1)