Changeset 1147 for trunk/NEMO

Timestamp:

2008-06-25T16:20:59+02:00 (16 years ago)

Author:

cetlod

Message:

suppression of useless variable nobis ; see daymod.F90 reorganization : ticket:216

File:

• trunk/NEMO/TOP_SRC/PISCES/p4zsed.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/PISCES/p4zsed.F90

@@ -358 +358 @@
       ! --------------
 
-      i15 = INT( 2 * FLOAT( nday ) / ( FLOAT( nobis(nmonth) ) + 0.5 ) )
+      i15 = nday / 16
       iman  = INT( raamo )
       imois = nmonth + i15 - 1
@@ -419 +419 @@
       ! ---------------------------------------------
 
-      zxy = FLOAT( nday ) / FLOAT( nobis(nflx1) ) + 0.5 - i15
-
+      zxy = FLOAT( nday + 15 - 30 * i15 ) / 30
       dust(:,:) = ( (1.-zxy) * dustmo(:,:,1) + zxy * dustmo(:,:,2) )