Changeset 508 for LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histmthNMC.h
- Timestamp:
- Mar 24, 2004, 9:59:48 AM (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histmthNMC.h
r500 r508 15 15 c 16 16 c Champs interpolles sur des niveaux de pression du NMC 17 c110304 BEG 18 DO k=1, nlevSTD 17 19 c 18 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u1000,zx_tmp_2d) 19 CALL histwrite(nid_nmc, 20 ."u1000",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 20 bb=clevSTD(k) 21 21 c 22 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v1000,zx_tmp_2d) 23 CALL histwrite(nid_nmc, 24 ."v1000",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d) 22 IF(k.GE.2) THEN 23 aa=clevSTD(k) 24 bb=aa(1:lnblnk1(aa)) 25 ENDIF 25 26 c 26 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u925,zx_tmp_2d)27 CALL histwrite(nid_nmc, 28 ."u925",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)27 CALL gr_fi_ecrit(1, klon,iim,jjmp1, tlevSTD(:,k),zx_tmp_2d) 28 CALL histwrite(nid_nmc,"t"//bb,itau_w,zx_tmp_2d, 29 $ iim*jjmp1,ndex2d) 29 30 c 30 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v925,zx_tmp_2d)31 CALL histwrite(nid_nmc, 32 ."v925",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)31 CALL gr_fi_ecrit(1, klon,iim,jjmp1, philevSTD(:,k),zx_tmp_2d) 32 CALL histwrite(nid_nmc,"phi"//bb,itau_w,zx_tmp_2d, 33 $ iim*jjmp1,ndex2d) 33 34 c 34 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u850,zx_tmp_2d)35 CALL histwrite(nid_nmc, 36 ."u850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)35 CALL gr_fi_ecrit(1, klon,iim,jjmp1, qlevSTD(:,k),zx_tmp_2d) 36 CALL histwrite(nid_nmc,"q"//bb,itau_w,zx_tmp_2d, 37 $ iim*jjmp1,ndex2d) 37 38 c 38 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v850,zx_tmp_2d)39 CALL histwrite(nid_nmc," v850",itau_w,40 .zx_tmp_2d,iim*jjmp1,ndex2d)39 CALL gr_fi_ecrit(1, klon,iim,jjmp1, rhlevSTD(:,k),zx_tmp_2d) 40 CALL histwrite(nid_nmc,"rh"//bb,itau_w,zx_tmp_2d, 41 $ iim*jjmp1,ndex2d) 41 42 c 42 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u 700,zx_tmp_2d)43 CALL histwrite(nid_nmc,"u 700",itau_w,44 .zx_tmp_2d,iim*jjmp1,ndex2d)43 CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulevSTD(:,k),zx_tmp_2d) 44 CALL histwrite(nid_nmc,"u"//bb,itau_w,zx_tmp_2d, 45 $ iim*jjmp1,ndex2d) 45 46 c 46 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v 700,zx_tmp_2d)47 CALL histwrite(nid_nmc,"v 700",itau_w,48 .zx_tmp_2d,iim*jjmp1,ndex2d)47 CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlevSTD(:,k),zx_tmp_2d) 48 CALL histwrite(nid_nmc,"v"//bb,itau_w,zx_tmp_2d, 49 $ iim*jjmp1,ndex2d) 49 50 c 50 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u600,zx_tmp_2d)51 CALL histwrite(nid_nmc,"u600",itau_w, 52 .zx_tmp_2d,iim*jjmp1,ndex2d) 51 ENDDO !k=1, nlevSTD 52 ccc 53 c110304 END 53 54 c 54 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v600,zx_tmp_2d)55 CALL histwrite(nid_nmc,"v600",itau_w,56 .zx_tmp_2d,iim*jjmp1,ndex2d)57 c58 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u500,zx_tmp_2d)59 CALL histwrite(nid_nmc,"u500",itau_w,60 .zx_tmp_2d,iim*jjmp1,ndex2d)61 c62 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v500,zx_tmp_2d)63 CALL histwrite(nid_nmc,"v500",itau_w,64 .zx_tmp_2d,iim*jjmp1,ndex2d)65 c66 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u400,zx_tmp_2d)67 CALL histwrite(nid_nmc,"u400",itau_w,68 .zx_tmp_2d,iim*jjmp1,ndex2d)69 c70 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v400,zx_tmp_2d)71 CALL histwrite(nid_nmc,"v400",itau_w,72 .zx_tmp_2d,iim*jjmp1,ndex2d)73 c74 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u300,zx_tmp_2d)75 CALL histwrite(nid_nmc,"u300",itau_w,76 .zx_tmp_2d,iim*jjmp1,ndex2d)77 c78 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v300,zx_tmp_2d)79 CALL histwrite(nid_nmc,"v300",itau_w,80 .zx_tmp_2d,iim*jjmp1,ndex2d)81 c82 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u250,zx_tmp_2d)83 CALL histwrite(nid_nmc,"u250",itau_w,84 .zx_tmp_2d,iim*jjmp1,ndex2d)85 c86 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v250,zx_tmp_2d)87 CALL histwrite(nid_nmc,"v250",itau_w,88 .zx_tmp_2d,iim*jjmp1,ndex2d)89 c90 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u200,zx_tmp_2d)91 CALL histwrite(nid_nmc,"u200",itau_w,92 .zx_tmp_2d,iim*jjmp1,ndex2d)93 c94 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v200,zx_tmp_2d)95 CALL histwrite(nid_nmc,"v200",itau_w,96 .zx_tmp_2d,iim*jjmp1,ndex2d)97 c98 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u150,zx_tmp_2d)99 CALL histwrite(nid_nmc,"u150",itau_w,100 .zx_tmp_2d,iim*jjmp1,ndex2d)101 c102 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v150,zx_tmp_2d)103 CALL histwrite(nid_nmc,"v150",itau_w,104 .zx_tmp_2d,iim*jjmp1,ndex2d)105 c106 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u100,zx_tmp_2d)107 CALL histwrite(nid_nmc,"u100",itau_w,108 .zx_tmp_2d,iim*jjmp1,ndex2d)109 c110 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v100,zx_tmp_2d)111 CALL histwrite(nid_nmc,"v100",itau_w,112 .zx_tmp_2d,iim*jjmp1,ndex2d)113 c114 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u70,zx_tmp_2d)115 CALL histwrite(nid_nmc,"u70",itau_w,116 .zx_tmp_2d,iim*jjmp1,ndex2d)117 c118 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v70,zx_tmp_2d)119 CALL histwrite(nid_nmc,"v70",itau_w,120 .zx_tmp_2d,iim*jjmp1,ndex2d)121 c122 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u50,zx_tmp_2d)123 CALL histwrite(nid_nmc,"u50",itau_w,124 .zx_tmp_2d,iim*jjmp1,ndex2d)125 c126 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v50,zx_tmp_2d)127 CALL histwrite(nid_nmc,"v50",itau_w,128 .zx_tmp_2d,iim*jjmp1,ndex2d)129 c130 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u30,zx_tmp_2d)131 CALL histwrite(nid_nmc,"u30",itau_w,132 .zx_tmp_2d,iim*jjmp1,ndex2d)133 c134 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v30,zx_tmp_2d)135 CALL histwrite(nid_nmc,"v30",itau_w,136 .zx_tmp_2d,iim*jjmp1,ndex2d)137 c138 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u20,zx_tmp_2d)139 CALL histwrite(nid_nmc,"u20",itau_w,140 .zx_tmp_2d,iim*jjmp1,ndex2d)141 c142 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v20,zx_tmp_2d)143 CALL histwrite(nid_nmc,"v20",itau_w,144 .zx_tmp_2d,iim*jjmp1,ndex2d)145 c146 CALL gr_fi_ecrit(1, klon,iim,jjmp1, u10,zx_tmp_2d)147 CALL histwrite(nid_nmc,"u10",itau_w,148 .zx_tmp_2d,iim*jjmp1,ndex2d)149 c150 CALL gr_fi_ecrit(1, klon,iim,jjmp1, v10,zx_tmp_2d)151 CALL histwrite(nid_nmc,"v10",itau_w,152 .zx_tmp_2d,iim*jjmp1,ndex2d)153 154 55 if (ok_sync) then 155 56 call histsync(nid_nmc)
Note: See TracChangeset
for help on using the changeset viewer.