Changeset 2240 for branches/DEV_r2106_LOCEAN2010/NEMO/OFF_SRC/domrea_dimg.h90

Timestamp:

2010-10-13T10:48:48+02:00 (14 years ago)

Author:

cetlod

Message:

Suppression of key_zco everywhere in the code

File:

• branches/DEV_r2106_LOCEAN2010/NEMO/OFF_SRC/domrea_dimg.h90 (modified) (2 diffs)

branches/DEV_r2106_LOCEAN2010/NEMO/OFF_SRC/domrea_dimg.h90

@@ -262 +262 @@
           mbathy=zprt*tmask(:,:,1)+1
 
-#if ! defined key_zco
           IF( ln_sco ) THEN                                         ! s-coordinate
              !
@@ -394 +393 @@
              READ(inum4,REC=irec) e3w_0(:)
           ENDIF
-#else
-          !
-          ! gdep
-          irec =  irecv(inum4) + (narea - 1 )
-          READ(inum4,REC=irec) gdept_0(:)
-          irecv(inum4) = irecv(inum4) + jpnij 
-          
-          irec =  irecv(inum4) + (narea - 1 )
-          READ(inum4,REC=irec) gdepw_0(:)
-          irecv(inum4) = irecv(inum4) + jpnij 
-          !
-          ! e3
-          irec =  irecv(inum4) + (narea - 1 )
-          READ(inum4,REC=irec) e3t_0(:)
-          irecv(inum4) = irecv(inum4) + jpnij 
-          
-          irec =  irecv(inum4) + (narea - 1 )
-          READ(inum4,REC=irec) e3w_0(:)
-          irecv(inum4) = irecv(inum4) + jpnij 
-         !
-#endif
          !                                     ! ============================
          !                                     !        close the files