Ignore:
Timestamp:
Mar 21, 2002, 4:09:32 PM (22 years ago)
Author:
lmdzadmin
Message:

2 changements pour les fichiers histoire:

  • utilisation de l'entree "rectilineaire" de IOIPSL pour ne plus avoir

a

lancer ncregular a chaque fois

  • le calendrier des fichiers histoire est maintenant base sur la date d'initialisation de la simulation plutot que sur la date de depart du

job

en cours

LF

Location:
LMDZ.3.3/branches/rel-LF/libf/dyn3d
Files:
1 deleted
8 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/create_etat0_limit.F

    r325 r353  
    1818
    1919      LOGICAL interbar, extrap , oldice
    20       PARAMETER ( interbar = .TRUE. , extrap = .FALSE. , oldice=.TRUE.)
     20      PARAMETER ( interbar = .TRUE. , extrap = .FALSE. , oldice=.true.)
    2121#include "dimensions.h"
    2222#include "paramet.h"

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/dynetat0.F

    r232 r353  
    8282      jm         = tab_cntrl(2)
    8383      lllm       = tab_cntrl(3)
    84       day_ini    = tab_cntrl(4)
    85       anne_ini   = tab_cntrl(5)
     84      day_ref    = tab_cntrl(4)
     85      annee_ref  = tab_cntrl(5)
    8686      rad        = tab_cntrl(6)
    8787      omeg       = tab_cntrl(7)
    … …  
    115115        IF( tab_cntrl(27).EQ.1. ) ysinus = . TRUE.
    116116      ENDIF
     117
     118      day_ini = tab_cntrl(30)
     119      itau_dyn = tab_cntrl(31)
    117120c   .................................................................
    118121c

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/dynredem.F

    r232 r353  
    11c $Header$
    22c
    3       SUBROUTINE dynredem0(fichnom,idayref,anneeref,phis,nq)
     3      SUBROUTINE dynredem0(fichnom,iday_end,phis,nq)
    44      USE IOIPSL
    55      IMPLICIT NONE
    … …  
    2323c   Arguments:
    2424c   ----------
    25       INTEGER*4 idayref,anneeref
     25      INTEGER iday_end
    2626      REAL phis(ip1jmp1)
    2727      CHARACTER*(*) fichnom
    … …  
    5656      modname='dynredem'
    5757
    58       call ymds2ju(anneeref,1,idayref,0.0, zjulian)
    59       call ju2ymds(zjulian, yyears0,mmois0,jjour0,hours)
     58      call ymds2ju(annee_ref, 1, iday_end, 0.0, zjulian)
     59      call ju2ymds(zjulian, yyears0, mmois0, jjour0, hours)
    6060       
    6161
    … …  
    6666       tab_cntrl(2)  = FLOAT(jjm)
    6767       tab_cntrl(3)  = FLOAT(llm)
    68        tab_cntrl(4)  = FLOAT(idayref)
    69        tab_cntrl(5)  = FLOAT(anneeref)
     68       tab_cntrl(4)  = FLOAT(day_ref)
     69       tab_cntrl(5)  = FLOAT(annee_ref)
    7070       tab_cntrl(6)  = rad
    7171       tab_cntrl(7)  = omeg
    … …  
    106106       IF( ysinus )  tab_cntrl(27) = 1.
    107107      ENDIF
     108
     109       tab_cntrl(30) = FLOAT(iday_end)
     110       tab_cntrl(31) = FLOAT(itau_dyn + itaufin)
    108111c
    109112c    .........................................................
    … …  
    378381      ierr = NF_CLOSE(nid) ! fermer le fichier
    379382
    380       PRINT*,'iim,jjm,llm,idayref',iim,jjm,llm,idayref
     383      PRINT*,'iim,jjm,llm,iday_end',iim,jjm,llm,iday_end
    381384      PRINT*,'rad,omeg,g,cpp,kappa',
    382385     ,        rad,omeg,g,cpp,kappa

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/gcm.F

    r295 r353  
    299299      PRINT 300, itau,itaufin,day_ini,day_end
    300300
    301       CALL dynredem0("restart.nc",day_end,anne_ini,phis,nqmx)
     301      CALL dynredem0("restart.nc", day_end, phis, nqmx)
    302302
    303303      ecripar = .TRUE.
    … …  
    306306      t_ops = iecri * daysec
    307307      t_wrt = iecri * daysec
    308 C      CALL inithist(dynhist_file,day_ini,anne_ini,time_step,
     308C      CALL inithist(dynhist_file,day_ref,annee_ref,time_step,
    309309c     .              t_ops, t_wrt, nqmx, histid, histvid)
    310310
    311311      t_ops = iperiod * time_step
    312312      t_wrt = periodav * daysec
    313       CALL initdynav(dynhistave_file,day_ini,anne_ini,time_step,
     313      CALL initdynav(dynhistave_file,day_ref,annee_ref,time_step,
    314314     .              t_ops, t_wrt, nqmx, histaveid)
    315315

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/limit_netcdf.F

    r327 r353  
    226226     . dlon_msk, dlat_msk, champ_msk, interbar  )
    227227
    228       CALL mask_c_o(imdep, jmdep, dlon_msk, dlat_msk,champ_msk,
    229      .             iim, jjp1, rlonv, rlatu, champint)
    230 c      CALL gr_int_dyn(champint, masque, iim, jjp1)
    231 c      DO i = 1, iim
    232 c         masque(i,1) = FLOAT(NINT(masque(i,1)))
    233 c         masque(i,jjp1) = FLOAT(NINT(masque(i,jjp1)))
    234 c      ENDDO
    235228      DO i = 1, iim
    236229      DO j = 1, jjp1
    237          mask(i,j) = champint(i,j)
    238       ENDDO
    239       ENDDO
    240 c      CALL gr_dyn_fi(1, iip1, jjp1, klon, masque, phy_nat0)
     230         mask(i,j) = masque(i,j)
     231      ENDDO
     232      ENDDO
    241233      ierr = NF_CLOSE(ncid)
    242234c

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/offlinenc.F

    r232 r353  
    200200      else
    201201         day_ini=0
    202          anne_ini=0
     202         annee_ref=0
    203203      endif
    204204
    … …  
    347347      close(98)
    348348
    349       CALL dynredem0("restart.nc",day_end,anne_ini,phis,nq)
     349      CALL dynredem0("restart.nc",day_end,phis,nq)
    350350
    351351c-----------------------------------------------------------------------
    … …  
    398398         dynhistave_file = 'histmoy.nc'
    399399         day_ini=0
    400          anne_ini=0
     400         annee_ref=0
    401401         t_ops =(1./48.)*daysec
    402402         t_wrt =(1./48.)*daysec
    … …  
    404404         mode=1
    405405
    406 c        CALL initdynav(dynhistave_file,day_ini,anne_ini,dtav,
     406c        CALL initdynav(dynhistave_file,day_ini,annee_ref,dtav,
    407407c    .              t_ops, t_wrt, nq,mode, histaveid)
    408408

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/temps.h

    r179 r353  
    44! INCLUDE 'temps.h'
    55
    6       COMMON/temps/itaufin,dt, day_ini,day_end,anne_ini
     6      COMMON/temps/itaufin, dt, day_ini, day_end, annee_ref, day_ref,
     7     .             itau_dyn, itau_phy
    78
    8       INTEGER  itaufin
    9       INTEGER*4 day_ini,day_end,anne_ini
    10       REAL     dt
     9      INTEGER   itaufin
     10      INTEGER*4 itau_dyn, itau_phy
     11      INTEGER*4 day_ini, day_end, annee_ref, day_ref
     12      REAL      dt
    1113
    1214!-----------------------------------------------------------------------

  • LMDZ.3.3/branches/rel-LF/libf/dyn3d/temps.inc

    r117 r353  
     1!
     2! $Header$
     3!
    14!-----------------------------------------------------------------------
    25! INCLUDE 'temps.h'
    36
    4       COMMON/temps/itaufin,dt, &
    5      &  day_ini,day_end,anne_ini
     7      COMMON/temps/itaufin, dt, &
     8     &  day_ini, day_end, annee_ref, day_ref, itau_dyn, itau_phy
    69
    710      INTEGER  itaufin
    8       INTEGER*4 day_ini,day_end,anne_ini
     11      INTEGER*4 itau_dyn, itau_phy
     12      INTEGER*4 day_ini, day_end, annee_ref, day_ref
    913      REAL     dt
    1014
Note: See TracChangeset for help on using the changeset viewer.