Changeset 463 for LMDZ.3.3


Ignore:
Timestamp:
Apr 22, 2003, 1:16:30 PM (21 years ago)
Author:
lmdzadmin
Message:

En rajoutant des diagnostiques dans les fichiers, quelqu'un s'etait goure dans
le pas de temps d'ecriture d'ou probleme dans le calendrier interne des
fichiers.
LF

Location:
LMDZ.3.3/branches/rel-LF/libf/phylmd
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histday.h

    r451 r463  
    1313         ENDDO
    1414         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
    15          write(*,*)'zx_lon = ',zx_lon(:,1)
    16          write(*,*)'zx_lat = ',zx_lat(1,:)
    1715         CALL histbeg("histday", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
    1816     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

    r456 r463  
    19681968cIM cf. FH     slp(:) = paprs(:,1)*exp(pphis(:)/(289.*t_seri(:,1)))
    19691969      slp(:) = paprs(:,1)*exp(pphis(:)/(RD*t_seri(:,1)))
    1970       PRINT*,' physiq slp ',slp(2185),paprs(2185,1),pphis(2185),
    1971      .       RD,t_seri(2185,1)
    19721970c
    19731971

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histday.h

    r447 r463  
    184184
    185185      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u850,zx_tmp_2d)
    186       CALL histwrite(nid_day,"u850",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     186      CALL histwrite(nid_day,"u850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    187187
    188188      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v850,zx_tmp_2d)
    189       CALL histwrite(nid_day,"v850",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     189      CALL histwrite(nid_day,"v850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    190190
    191191      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u500,zx_tmp_2d)
    192       CALL histwrite(nid_day,"u500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     192      CALL histwrite(nid_day,"u500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    193193
    194194      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v500,zx_tmp_2d)
    195       CALL histwrite(nid_day,"v500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     195      CALL histwrite(nid_day,"v500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    196196
    197197      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u200,zx_tmp_2d)
    198       CALL histwrite(nid_day,"u200",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     198      CALL histwrite(nid_day,"u200",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    199199
    200200      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v200,zx_tmp_2d)
    201       CALL histwrite(nid_day,"v200",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     201      CALL histwrite(nid_day,"v200",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    202202
    203203      CALL gr_fi_ecrit(1, klon,iim,jjmp1, phi500,zx_tmp_2d)
    204       CALL histwrite(nid_day,"phi500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     204      CALL histwrite(nid_day,"phi500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    205205
    206206      CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d)
    207       CALL histwrite(nid_day,"slp",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     207      CALL histwrite(nid_day,"slp",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    208208
    209209      CALL gr_fi_ecrit(1,klon,iim,jjmp1,cape,zx_tmp_2d)

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histhf.h

    r460 r463  
    66      ndex2d = 0
    77      ndex3d = 0
     8
     9      itau_w =  itau_phy + itap
    810c
    911c
    … …  
    1719C
    1820      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
    19       CALL histwrite(nid_hf,"tsol",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     21      CALL histwrite(nid_hf,"tsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    2022c
    2123      DO i = 1, klon
    … …  
    2325      ENDDO
    2426      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    25       CALL histwrite(nid_hf,"psol",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     27      CALL histwrite(nid_hf,"psol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    2628c
    2729      DO i = 1, klon
    … …  
    2931      ENDDO
    3032      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    31       CALL histwrite(nid_hf,"rain",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     33      CALL histwrite(nid_hf,"rain",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    3234
    3335      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u850,zx_tmp_2d)
    34       CALL histwrite(nid_hf,"u850",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     36      CALL histwrite(nid_hf,"u850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    3537
    3638      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v850,zx_tmp_2d)
    37       CALL histwrite(nid_hf,"v850",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     39      CALL histwrite(nid_hf,"v850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    3840
    3941      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u500,zx_tmp_2d)
    40       CALL histwrite(nid_hf,"u500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     42      CALL histwrite(nid_hf,"u500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    4143
    4244      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v500,zx_tmp_2d)
    43       CALL histwrite(nid_hf,"v500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     45      CALL histwrite(nid_hf,"v500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    4446
    4547      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u200,zx_tmp_2d)
    46       CALL histwrite(nid_hf,"u200",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     48      CALL histwrite(nid_hf,"u200",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    4749
    4850      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v200,zx_tmp_2d)
    49       CALL histwrite(nid_hf,"v200",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     51      CALL histwrite(nid_hf,"v200",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    5052
    5153      CALL gr_fi_ecrit(1, klon,iim,jjmp1, phi500,zx_tmp_2d)
    52       CALL histwrite(nid_hf,"phi500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     54      CALL histwrite(nid_hf,"phi500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    5355
    5456      if (ok_sync) then

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histmth.h

    r455 r463  
    505505
    506506      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u850,zx_tmp_2d)
    507       CALL histwrite(nid_mth,"u850",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     507      CALL histwrite(nid_mth,"u850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    508508
    509509      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v850,zx_tmp_2d)
    510       CALL histwrite(nid_mth,"v850",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     510      CALL histwrite(nid_mth,"v850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    511511
    512512      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u500,zx_tmp_2d)
    513       CALL histwrite(nid_mth,"u500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     513      CALL histwrite(nid_mth,"u500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    514514
    515515      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v500,zx_tmp_2d)
    516       CALL histwrite(nid_mth,"v500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     516      CALL histwrite(nid_mth,"v500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    517517
    518518      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u200,zx_tmp_2d)
    519       CALL histwrite(nid_mth,"u200",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     519      CALL histwrite(nid_mth,"u200",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    520520
    521521      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v200,zx_tmp_2d)
    522       CALL histwrite(nid_mth,"v200",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     522      CALL histwrite(nid_mth,"v200",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    523523
    524524      CALL gr_fi_ecrit(1, klon,iim,jjmp1, phi500,zx_tmp_2d)
    525       CALL histwrite(nid_mth,"phi500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     525      CALL histwrite(nid_mth,"phi500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    526526
    527527      CALL gr_fi_ecrit(1, klon,iim,jjmp1, w500,zx_tmp_2d)
    528       CALL histwrite(nid_mth,"w500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     528      CALL histwrite(nid_mth,"w500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    529529
    530530
Note: See TracChangeset for help on using the changeset viewer.