Changeset 1732 for trunk/NEMO/OPA_SRC/DOM

Timestamp:

2009-11-16T16:15:24+01:00 (15 years ago)

Author:

smasson

Message:

supress useless variables in phycst, see ticket:602

Location:

trunk/NEMO/OPA_SRC/DOM

Files:

• domain.F90 (modified) (1 diff)
• phycst.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/DOM/domain.F90

@@ -184 +184 @@
 #endif
 
-      SELECT CASE ( nleapy )       ! year=raajj*days day=rjjhh*hours hour=rhhmm*minutes etc ...
-      CASE ( 1 )
-         raajj = 365.25
-         raass = raajj * rjjss
-         rmoss = raass/raamo
-      CASE ( 0 )
-         raajj = 365.
-         raass = raajj * rjjss
-         rmoss = raass/raamo
-      CASE DEFAULT
-         raajj = FLOAT( nleapy ) * raamo
-         raass =        raajj    * rjjss
-         rmoss = FLOAT( nleapy ) * rjjss
-      END SELECT
-      IF(lwp) THEN
-         WRITE(numout,*)
-         WRITE(numout,*) '   nb of days per year      raajj = ', raajj,' days'
-         WRITE(numout,*) '   nb of seconds per year   raass = ', raass, ' s'
-         WRITE(numout,*) '   nb of seconds per month  rmoss = ', rmoss, ' s'
-      ENDIF
-
       REWIND( numnam )             ! Namelist namdom : space & time domain (bathymetry, mesh, timestep)
       READ  ( numnam, namdom )

trunk/NEMO/OPA_SRC/DOM/phycst.F90

@@ -30 +30 @@
       rsiyea              ,     & !: sideral year (s)
       rsiday              ,     & !: sideral day (s)
-      raajj = 365._wp     ,     & !: number of days in one year
       raamo =  12._wp     ,     & !: number of months in one year
       rjjhh =  24._wp     ,     & !: number of hours in one day
       rhhmm =  60._wp     ,     & !: number of minutes in one hour
       rmmss =  60._wp     ,     & !: number of seconds in one minute
-      raass               ,     & !: number of seconds in one year
-      rmoss               ,     & !: number of seconds in one month
-      rjjss               ,     & !: number of seconds in one day
 !!!   omega = 7.292115083046061e-5_wp ,  &  !: change the last digit!
       omega               ,    &  !: earth rotation parameter
@@ -141 +137 @@
       IF(lwp) WRITE(numout,*) '          omega                              omega  = ', omega,  ' s-1'
 
-      rjjss = rjjhh * rhhmm * rmmss
       IF(lwp) WRITE(numout,*)
       IF(lwp) WRITE(numout,*) '          nb of months per year               raamo = ', raamo, ' months'
@@ -147 +142 @@
       IF(lwp) WRITE(numout,*) '          nb of minutes per hour              rhhmm = ', rhhmm, ' mn'
       IF(lwp) WRITE(numout,*) '          nb of seconds per minute            rmmss = ', rmmss, ' s'
-      IF(lwp) WRITE(numout,*) '          nb of seconds per day               rjjss = ', rjjss, ' s'
 
       IF(lwp) WRITE(numout,*)