Changeset 2056 for LMDZ5/branches/testing/libf/dyn3dmem/gcm.F

Timestamp:

Jun 11, 2014, 3:46:46 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r1997:2055 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/gcm.F (modified) (3 diffs)

LMDZ5/branches/testing/libf/dyn3dmem/gcm.F

@@ -98 +98 @@
       REAL,ALLOCATABLE,SAVE  :: ps(:)         ! pression  au sol
 c      REAL p (ip1jmp1,llmp1  )               ! pression aux interfac.des couches
-c      REAL pks(ip1jmp1)                      ! exner au  sol
-c      REAL pk(ip1jmp1,llm)                   ! exner au milieu des couches
-c      REAL pkf(ip1jmp1,llm)                  ! exner filt.au milieu des couches
       REAL,ALLOCATABLE,SAVE  :: masse(:,:)    ! masse d'air
       REAL,ALLOCATABLE,SAVE  :: phis(:)       ! geopotentiel au sol
@@ -124 +121 @@
       data call_iniphys/.true./
 
-c      REAL alpha(ip1jmp1,llm),beta(ip1jmp1,llm)
 c+jld variables test conservation energie
 c      REAL ecin(ip1jmp1,llm),ecin0(ip1jmp1,llm)
@@ -481 +477 @@
 
 
-      day_end = day_ini + nday
+      if (nday>=0) then
+         day_end = day_ini + nday
+      else
+         day_end = day_ini - nday/day_step
+      endif
+  
       WRITE(lunout,300)day_ini,day_end
  300  FORMAT('1'/,15x,'run du jour',i7,2x,'au jour',i7//)