[416] | 1 | |
---|
| 2 | IF (ok_hf) THEN |
---|
| 3 | c |
---|
| 4 | PRINT*, 'La frequence de sortie instant. est de ', ecrit_hf |
---|
| 5 | |
---|
| 6 | cccIM CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian) |
---|
[453] | 7 | idayref = day_ref |
---|
| 8 | CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian) |
---|
| 9 | |
---|
[416] | 10 | c |
---|
| 11 | CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon) |
---|
| 12 | DO i = 1, iim |
---|
| 13 | zx_lon(i,1) = rlon(i+1) |
---|
| 14 | zx_lon(i,jjmp1) = rlon(i+1) |
---|
| 15 | ENDDO |
---|
| 16 | |
---|
| 17 | CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat) |
---|
| 18 | |
---|
| 19 | cccIM CALL histbeg("histhf", iim,zx_lon, jjmp1,zx_lat, |
---|
| 20 | CALL histbeg("histhf", iim,zx_lon(:,1), jjmp1,zx_lat(1,:), |
---|
[453] | 21 | . 1,iim,1,jjmp1, itau_phy, zjulian, dtime, |
---|
[416] | 22 | . nhori, nid_hf) |
---|
| 23 | |
---|
| 24 | CALL histvert(nid_hf, "presnivs", "Vertical levels", "mb", |
---|
| 25 | . klev, presnivs, nvert) |
---|
| 26 | zsto = dtime |
---|
| 27 | |
---|
| 28 | c pour les champs instantannes, il faut mettre la meme valeur pour |
---|
| 29 | c zout et tsto. |
---|
| 30 | c dtime est passe par ailleurs a histbeg |
---|
| 31 | |
---|
[422] | 32 | zout = dtime * REAL(NINT(86400./dtime*ecrit_hf)) |
---|
[416] | 33 | zsto = zout |
---|
| 34 | print*,'zout,zsto=',zout,zsto |
---|
| 35 | |
---|
| 36 | c |
---|
| 37 | c CALL histdef(nid_hf, "phis", "Surface geop. height", "-", |
---|
| 38 | c . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
| 39 | c . "once", zsto,zout) |
---|
| 40 | c |
---|
| 41 | c CALL histdef(nid_hf, "aire", "Grid area", "-", |
---|
| 42 | c . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
| 43 | c . "once", zsto,zout) |
---|
| 44 | c |
---|
| 45 | c Champs 2D: |
---|
| 46 | c |
---|
| 47 | CALL histdef(nid_hf, "tsol", "Surface Temperature", "K", |
---|
| 48 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
| 49 | . "inst(X)", zsto,zout) |
---|
| 50 | c |
---|
| 51 | CALL histdef(nid_hf, "psol", "Surface Pressure", "Pa", |
---|
| 52 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
| 53 | . "inst(X)", zsto,zout) |
---|
| 54 | c |
---|
| 55 | print*,'ATTENTION METTRE AVE(X) POUR LES PRECIPS' |
---|
| 56 | |
---|
| 57 | CALL histdef(nid_hf, "rain", "Precipitation", "mm/d", |
---|
| 58 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
| 59 | . "inst(X)", zsto,zout) |
---|
| 60 | c |
---|
| 61 | CALL histdef(nid_hf, "u850", "Zonal wind 850mb", "m/s", |
---|
| 62 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
| 63 | . "inst(X)", zsto,zout) |
---|
| 64 | |
---|
| 65 | CALL histdef(nid_hf, "v850", "Meridional wind 850mb", "m/s", |
---|
| 66 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
| 67 | . "inst(X)", zsto,zout) |
---|
| 68 | c |
---|
| 69 | CALL histdef(nid_hf, "u500", "Zonal wind 500mb", "m/s", |
---|
| 70 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
| 71 | . "inst(X)", zsto,zout) |
---|
| 72 | |
---|
| 73 | CALL histdef(nid_hf, "v500", "Meridional wind 500mb", "m/s", |
---|
| 74 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
| 75 | . "inst(X)", zsto,zout) |
---|
| 76 | |
---|
| 77 | CALL histdef(nid_hf, "u200", "Zonal wind 200mb", "m/s", |
---|
| 78 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
| 79 | . "inst(X)", zsto,zout) |
---|
| 80 | |
---|
| 81 | CALL histdef(nid_hf, "v200", "Meridional wind 200mb", "m/s", |
---|
| 82 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
| 83 | . "inst(X)", zsto,zout) |
---|
| 84 | |
---|
[467] | 85 | CALL histdef(nid_hf, "phi500", "Geopotentiel a 500mb", "m2/s2", |
---|
[416] | 86 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
| 87 | . "inst(X)", zsto,zout) |
---|
| 88 | |
---|
[467] | 89 | cIM cf FH |
---|
| 90 | CALL histdef(nid_hf,"u1","Zonal wind at 1st layer", "m/s", |
---|
| 91 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
| 92 | . "inst(X)", zsto,zout) |
---|
| 93 | |
---|
| 94 | CALL histdef(nid_hf,"v1","Meridional wind at 1st layer", |
---|
| 95 | . "m/s",iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
| 96 | . "inst(X)", zsto,zout) |
---|
| 97 | |
---|
| 98 | CALL histdef(nid_hf, "cdrm", " Momentum drag coef.", "-", |
---|
| 99 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
| 100 | . "inst(X)", zsto,zout) |
---|
| 101 | |
---|
| 102 | CALL histdef(nid_hf, "cdrh", "Heat drag coef.", "-", |
---|
| 103 | . iim,jjmp1,nhori, 1,1,1, -99, 32, |
---|
| 104 | . "inst(X)", zsto,zout) |
---|
| 105 | |
---|
[416] | 106 | c |
---|
| 107 | CALL histend(nid_hf) |
---|
| 108 | |
---|
| 109 | endif ! ok_hf |
---|