Changeset 598 for trunk/NEMO/LIM_SRC

Timestamp:

2007-02-20T15:16:53+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_006 : CT : - avoid to change sign of 2 surface fluxes (#11 & #12) when calling lbc_lnk

• remove fields #23 & #24 which doesn't exist

Location:

trunk/NEMO/LIM_SRC

Files:

• limwri.F90 (modified) (1 diff)
• limwri_dimg.h90 (modified) (1 diff)

trunk/NEMO/LIM_SRC/limwri.F90

@@ -175 +175 @@
          END DO
          
-         IF ( jf == 7  .OR. jf == 8  .OR. jf == 11 .OR. jf == 12 .OR. jf == 15 .OR.   &
-            jf == 23 .OR. jf == 24 .OR. jf == 16 ) THEN 
+         IF ( jf == 7  .OR. jf == 8  .OR. jf == 15 .OR. jf == 16 ) THEN 
             CALL lbc_lnk( zfield, 'T', -1. )
          ELSE 

trunk/NEMO/LIM_SRC/limwri_dimg.h90

@@ -178 +178 @@
              zfield(:,:) = (rcmoy(:,:,jf) * cmulti(jf) + cadd(jf)) * tmask(:,:,1)
 
-             IF ( jf == 7  .OR. jf == 8  .OR. jf == 11 .OR. jf == 12 .OR. jf == 15 .OR.   &
-                  jf == 23 .OR. jf == 24 .OR. jf == 16 ) THEN 
+             IF ( jf == 7  .OR. jf == 8  .OR. jf == 15 .OR. jf == 16 ) THEN 
                 CALL lbc_lnk( zfield, 'T', -1. )
              ELSE