Changeset 1550 for trunk/NEMO/LIM_SRC_2

Timestamp:

2009-07-29T11:20:21+02:00 (15 years ago)

Author:

ctlod

Message:

missing soce_r(:,:) and sice_r(:,:) initialisation if the configuration used is not ORCA2, see ticket: #498

File:

• trunk/NEMO/LIM_SRC_2/limsbc_2.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC_2/limsbc_2.F90

@@ -100 +100 @@
          IF(lwp) WRITE(numout,*) 'lim_sbc_2 : LIM 2.0 sea-ice - surface boundary condition'
          IF(lwp) WRITE(numout,*) '~~~~~~~~~   '
+
+         soce_r(:,:) = soce
+         sice_r(:,:) = sice
          !
          IF( cp_cfg == "orca"  .AND. jp_cfg == 2 ) THEN
@@ -105 +108 @@
             !                                        !  ORCA_R2 configuration
             !                                        ! =======================
-            soce_r(:,:) = soce
-            sice_r(:,:) = sice
             ii0 = 145   ;   ii1 = 180        ! Baltic Sea
             ij0 = 113   ;   ij1 = 130   ;   soce_r(mi0(ii0):mi1(ii1) , mj0(ij0):mj1(ij1) ) = 4.e0