Changeset 141 for trunk/NEMO/LIM_SRC

Timestamp:

2004-10-19T15:26:55+02:00 (20 years ago)

Author:

opalod

Message:

CL + CT: BUGFIX086: Add the cpp key line "#if ! defined key_coupled" to avoid CALLs using qla_ice and dqla_ice arrays

File:

• trunk/NEMO/LIM_SRC/limthd.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC/limthd.F90

@@ -247 +247 @@
          CALL tab_2d_1d( nbpb, fr2_i0_1d  (1:nbpb)     , fr2_i0     , jpi, jpj, npb(1:nbpb) )
          CALL tab_2d_1d( nbpb, qnsr_ice_1d(1:nbpb)     , qnsr_ice   , jpi, jpj, npb(1:nbpb) )
+#if ! defined key_coupled
          CALL tab_2d_1d( nbpb, qla_ice_1d (1:nbpb)     , qla_ice    , jpi, jpj, npb(1:nbpb) )
          CALL tab_2d_1d( nbpb, dqla_ice_1d(1:nbpb)     , dqla_ice   , jpi, jpj, npb(1:nbpb) )
+#endif
          CALL tab_2d_1d( nbpb, dqns_ice_1d(1:nbpb)     , dqns_ice   , jpi, jpj, npb(1:nbpb) )
          CALL tab_2d_1d( nbpb, tfu_1d     (1:nbpb)     , tfu        , jpi, jpj, npb(1:nbpb) )