Ignore:
Timestamp:
May 11, 2014, 7:41:54 PM (11 years ago)
Author:
aslmd
Message:

LMDZ.GENERIC LMDZ.COMMON LMDZ.UNIVERSAL. Bye Bye LMDZ.UNIVERSAL. Go to LMDZ.COMMON!

Location:
trunk/LMDZ.GENERIC/libf/phystd
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/dimphys.h

    r1216 r1252  
    1313!-----------------------------------------------------------------------
    1414
    15       common/dimphys/cursor
    16       integer cursor  !! this is the position of point 1 on the globe
    17                       !! it is 1 obviously for sequential runs
    18                       !! but might differ for paraller runs
    19                       !! it is used in phyetat0 mostly
    20 

  • trunk/LMDZ.GENERIC/libf/phystd/inifis.F

    r1216 r1252  
    8686
    8787      avocado = 6.02214179e23   ! added by RW
    88 
    89       cursor = 1 ! added by AS in dimphys. 1 for sequential runs.
    9088
    9189! --------------------------------------------------------

  • trunk/LMDZ.GENERIC/libf/phystd/newstart.F

    r1216 r1252  
    284284      IF (.not. ALLOCATED(long)) ALLOCATE(long(ngridmx))
    285285      IF (.not. ALLOCATED(area)) ALLOCATE(area(ngridmx))
    286       cursor = 1 ! added by AS in dimphys. 1 for sequential runs.
    287286
    288287c-----------------------------------------------------------------------

  • trunk/LMDZ.GENERIC/libf/phystd/phyetat0.F90

    r1216 r1252  
    7777      INTEGER :: indextime=1 ! index of selected time, default value=1
    7878      logical :: found
    79 
    80 !! added variables by AS to allow to read only slices of startfi
    81 !      real :: toto(ngrid)
    82 !      integer :: sta   !! subscript in starti where we start to read
    83 !      integer, dimension(2) :: sta2d
    84 !      integer, dimension(2) :: siz2d
    85 
    86 ! AS: get the cursor that is stored in dimphys.h
    87 ! ... this allows to read only a part of startfi horiz grid
    88 !sta = cursor
    8979
    9080!

  • trunk/LMDZ.GENERIC/libf/phystd/physiq.F90

    r1216 r1252  
    730730              ztim1=SIN(declin)
    731731!              ztim2=COS(declin)*COS(2.*pi*(zday/year_day) - zls*nres)
    732 !              ztim3=-COS(declin)*SIN(2.  zday/year_day) - zls*nres)
     732!              ztim3=-COS(declin)*SIN(2.*pi*(zday/year_day) - zls*nres)
    733733! JL12 corrects tidally resonant cases. nres=omega_rot/omega_orb
    734734              ztim2=COS(declin)*COS(2.*pi*(zday/year_day)*nres - zls)
    … …  
    14931493      if(callsoil)then
    14941494         TsS = SUM(area(:)*tsoil(:,nsoilmx))/totarea        ! mean temperature at bottom soil layer
    1495          if (cursor == 1) then
    14961495           print*,'  ave[Tsurf]     min[Tsurf]     max[Tsurf]     ave[Tdeep]'
    14971496           print*,Ts1,Ts2,Ts3,TsS
    1498          endif
    14991497      else
    1500          if (cursor == 1) then
    15011498           print*,'  ave[Tsurf]     min[Tsurf]     max[Tsurf]'
    15021499           print*,Ts1,Ts2,Ts3
    1503          endif         
    15041500      end if
    15051501
    … …  
    16471643
    16481644
    1649          if (cursor == 1) then
    16501645           print*,'--> Ls =',zls*180./pi
    1651          endif
    16521646!        -------------------------------------------------------------------
    16531647!        Writing NetCDF file  "RESTARTFI" at the end of the run

  • trunk/LMDZ.GENERIC/libf/phystd/start2archive.F

    r1227 r1252  
    128128      CALL defrun_new(99, .TRUE. )
    129129      grireg   = .TRUE.
    130       cursor = 1 ! added by AS in dimphys.
    131130
    132131! initialize "serial/parallel" related stuff
Note: See TracChangeset for help on using the changeset viewer.