Changeset 463 for LMDZ.3.3/branches
- Timestamp:
- Apr 22, 2003, 1:16:30 PM (22 years ago)
- 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 13 13 ENDDO 14 14 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,:)17 15 CALL histbeg("histday", iim,zx_lon(:,1), jjmp1,zx_lat(1,:), 18 16 . 1,iim,1,jjmp1, itau_phy, zjulian, dtime, -
LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F
r456 r463 1968 1968 cIM cf. FH slp(:) = paprs(:,1)*exp(pphis(:)/(289.*t_seri(:,1))) 1969 1969 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)1972 1970 c 1973 1971 -
LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histday.h
r447 r463 184 184 185 185 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u850,zx_tmp_2d) 186 CALL histwrite(nid_day,"u850",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)186 CALL histwrite(nid_day,"u850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 187 187 188 188 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v850,zx_tmp_2d) 189 CALL histwrite(nid_day,"v850",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)189 CALL histwrite(nid_day,"v850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 190 190 191 191 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u500,zx_tmp_2d) 192 CALL histwrite(nid_day,"u500",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)192 CALL histwrite(nid_day,"u500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 193 193 194 194 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v500,zx_tmp_2d) 195 CALL histwrite(nid_day,"v500",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)195 CALL histwrite(nid_day,"v500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 196 196 197 197 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u200,zx_tmp_2d) 198 CALL histwrite(nid_day,"u200",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)198 CALL histwrite(nid_day,"u200",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 199 199 200 200 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v200,zx_tmp_2d) 201 CALL histwrite(nid_day,"v200",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)201 CALL histwrite(nid_day,"v200",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 202 202 203 203 CALL gr_fi_ecrit(1, klon,iim,jjmp1, phi500,zx_tmp_2d) 204 CALL histwrite(nid_day,"phi500",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)204 CALL histwrite(nid_day,"phi500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 205 205 206 206 CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d) 207 CALL histwrite(nid_day,"slp",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)207 CALL histwrite(nid_day,"slp",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 208 208 209 209 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 6 6 ndex2d = 0 7 7 ndex3d = 0 8 9 itau_w = itau_phy + itap 8 10 c 9 11 c … … 17 19 C 18 20 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d) 19 CALL histwrite(nid_hf,"tsol",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)21 CALL histwrite(nid_hf,"tsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 20 22 c 21 23 DO i = 1, klon … … 23 25 ENDDO 24 26 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 25 CALL histwrite(nid_hf,"psol",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)27 CALL histwrite(nid_hf,"psol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 26 28 c 27 29 DO i = 1, klon … … 29 31 ENDDO 30 32 CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d) 31 CALL histwrite(nid_hf,"rain",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)33 CALL histwrite(nid_hf,"rain",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 32 34 33 35 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u850,zx_tmp_2d) 34 CALL histwrite(nid_hf,"u850",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)36 CALL histwrite(nid_hf,"u850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 35 37 36 38 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v850,zx_tmp_2d) 37 CALL histwrite(nid_hf,"v850",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)39 CALL histwrite(nid_hf,"v850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 38 40 39 41 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u500,zx_tmp_2d) 40 CALL histwrite(nid_hf,"u500",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)42 CALL histwrite(nid_hf,"u500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 41 43 42 44 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v500,zx_tmp_2d) 43 CALL histwrite(nid_hf,"v500",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)45 CALL histwrite(nid_hf,"v500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 44 46 45 47 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u200,zx_tmp_2d) 46 CALL histwrite(nid_hf,"u200",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)48 CALL histwrite(nid_hf,"u200",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 47 49 48 50 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v200,zx_tmp_2d) 49 CALL histwrite(nid_hf,"v200",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)51 CALL histwrite(nid_hf,"v200",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 50 52 51 53 CALL gr_fi_ecrit(1, klon,iim,jjmp1, phi500,zx_tmp_2d) 52 CALL histwrite(nid_hf,"phi500",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)54 CALL histwrite(nid_hf,"phi500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 53 55 54 56 if (ok_sync) then -
LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histmth.h
r455 r463 505 505 506 506 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u850,zx_tmp_2d) 507 CALL histwrite(nid_mth,"u850",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)507 CALL histwrite(nid_mth,"u850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 508 508 509 509 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v850,zx_tmp_2d) 510 CALL histwrite(nid_mth,"v850",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)510 CALL histwrite(nid_mth,"v850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 511 511 512 512 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u500,zx_tmp_2d) 513 CALL histwrite(nid_mth,"u500",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)513 CALL histwrite(nid_mth,"u500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 514 514 515 515 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v500,zx_tmp_2d) 516 CALL histwrite(nid_mth,"v500",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)516 CALL histwrite(nid_mth,"v500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 517 517 518 518 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u200,zx_tmp_2d) 519 CALL histwrite(nid_mth,"u200",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)519 CALL histwrite(nid_mth,"u200",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 520 520 521 521 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v200,zx_tmp_2d) 522 CALL histwrite(nid_mth,"v200",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)522 CALL histwrite(nid_mth,"v200",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 523 523 524 524 CALL gr_fi_ecrit(1, klon,iim,jjmp1, phi500,zx_tmp_2d) 525 CALL histwrite(nid_mth,"phi500",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)525 CALL histwrite(nid_mth,"phi500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 526 526 527 527 CALL gr_fi_ecrit(1, klon,iim,jjmp1, w500,zx_tmp_2d) 528 CALL histwrite(nid_mth,"w500",ita p,zx_tmp_2d,iim*jjmp1,ndex2d)528 CALL histwrite(nid_mth,"w500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 529 529 530 530
Note: See TracChangeset
for help on using the changeset viewer.