Changeset 1534 for LMDZ4/branches/LMDZ4_AR5/libf/phylmd/write_histmthNMC.h
- Timestamp:
- Jun 3, 2011, 7:28:17 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4_AR5/libf/phylmd/write_histmthNMC.h
r1398 r1534 14 14 c nout=3 : in=pdtphys, out=hf 15 15 ccc 16 CALL histwrite_phy(nid_mthnmc,"tnondef",itau_w,tnondef(:,:,1)) 16 CALL histwrite_phy(nid_mthnmc,lNMC,"tnondef",itau_w, 17 $tnondef(:,:,1)) 17 18 c 18 CALL histwrite_phy(nid_mthnmc,"ta",itau_w,twriteSTD(:,:,1)) 19 CALL histwrite_phy(nid_mthnmc,lNMC,"ta",itau_w, 20 $twriteSTD(:,:,1)) 19 21 c 20 CALL histwrite_phy(nid_mthnmc,"zg",itau_w,phiwriteSTD(:,:,1)) 22 CALL histwrite_phy(nid_mthnmc,lNMC,"zg",itau_w, 23 $phiwriteSTD(:,:,1)) 21 24 c 22 CALL histwrite_phy(nid_mthnmc,"hus",itau_w,qwriteSTD(:,:,1)) 25 CALL histwrite_phy(nid_mthnmc,lNMC,"hus",itau_w, 26 $qwriteSTD(:,:,1)) 23 27 c 24 CALL histwrite_phy(nid_mthnmc,"hur",itau_w,rhwriteSTD(:,:,1)) 28 CALL histwrite_phy(nid_mthnmc,lNMC,"hur",itau_w, 29 $rhwriteSTD(:,:,1)) 25 30 c 26 CALL histwrite_phy(nid_mthnmc,"ua",itau_w,uwriteSTD(:,:,1)) 31 CALL histwrite_phy(nid_mthnmc,lNMC,"ua",itau_w, 32 $uwriteSTD(:,:,1)) 27 33 c 28 CALL histwrite_phy(nid_mthnmc,"va",itau_w,vwriteSTD(:,:,1)) 34 CALL histwrite_phy(nid_mthnmc,lNMC,"va",itau_w, 35 $vwriteSTD(:,:,1)) 29 36 c 30 CALL histwrite_phy(nid_mthnmc,"wap",itau_w,wwriteSTD(:,:,1)) 37 CALL histwrite_phy(nid_mthnmc,lNMC,"wap",itau_w, 38 $wwriteSTD(:,:,1)) 31 39 c 32 40 DO k=1, nlevSTD … … 40 48 ENDDO !k=1, nlevSTD 41 49 c 42 CALL histwrite_phy(nid_mthnmc,"psbg",itau_w,zx_tmp_fiNC) 50 CALL histwrite_phy(nid_mthnmc,lNMC,"psbg",itau_w, 51 $zx_tmp_fiNC) 43 52 c 44 CALL histwrite_phy(nid_mthnmc,"uv",itau_w,uvsumSTD(:,:,1)) 53 CALL histwrite_phy(nid_mthnmc,lNMC,"uv",itau_w, 54 $uvsumSTD(:,:,1)) 45 55 c 46 CALL histwrite_phy(nid_mthnmc,"vq",itau_w,vqsumSTD(:,:,1)) 56 CALL histwrite_phy(nid_mthnmc,lNMC,"vq",itau_w, 57 $vqsumSTD(:,:,1)) 47 58 c 48 CALL histwrite_phy(nid_mthnmc,"vT",itau_w,vTsumSTD(:,:,1)) 59 CALL histwrite_phy(nid_mthnmc,lNMC,"vT",itau_w, 60 $vTsumSTD(:,:,1)) 49 61 c 50 CALL histwrite_phy(nid_mthnmc,"wq",itau_w,wqsumSTD(:,:,1)) 62 CALL histwrite_phy(nid_mthnmc,lNMC,"wq",itau_w, 63 $wqsumSTD(:,:,1)) 51 64 c 52 CALL histwrite_phy(nid_mthnmc,"vphi",itau_w,vphisumSTD(:,:,1)) 65 CALL histwrite_phy(nid_mthnmc,lNMC,"vphi",itau_w, 66 $vphisumSTD(:,:,1)) 53 67 c 54 CALL histwrite_phy(nid_mthnmc,"wT",itau_w,wTsumSTD(:,:,1)) 68 CALL histwrite_phy(nid_mthnmc,lNMC,"wT",itau_w, 69 $wTsumSTD(:,:,1)) 55 70 c 56 CALL histwrite_phy(nid_mthnmc,"uxu",itau_w,u2sumSTD(:,:,1)) 71 CALL histwrite_phy(nid_mthnmc,lNMC,"uxu",itau_w, 72 $u2sumSTD(:,:,1)) 57 73 c 58 CALL histwrite_phy(nid_mthnmc,"vxv",itau_w,v2sumSTD(:,:,1)) 74 CALL histwrite_phy(nid_mthnmc,lNMC,"vxv",itau_w, 75 $v2sumSTD(:,:,1)) 59 76 c 60 CALL histwrite_phy(nid_mthnmc,"TxT",itau_w,T2sumSTD(:,:,1)) 77 CALL histwrite_phy(nid_mthnmc,lNMC,"TxT",itau_w, 78 $T2sumSTD(:,:,1)) 61 79 c 62 80 DO k=1, nlevSTD … … 69 87 ENDDO 70 88 ENDDO !k=1, nlevSTD 71 CALL histwrite_phy(nid_mthnmc, "tro3",itau_w,89 CALL histwrite_phy(nid_mthnmc,lNMC,"tro3",itau_w, 72 90 $ zx_tmp_fiNC) 73 91 c … … 83 101 ENDDO !k=1, nlevSTD 84 102 c 85 CALL histwrite_phy(nid_mthnmc, "tro3_daylight",itau_w,86 $ 103 CALL histwrite_phy(nid_mthnmc,lNMC,"tro3_daylight", 104 $itau_w, zx_tmp_fiNC) 87 105 endif 88 106 c
Note: See TracChangeset
for help on using the changeset viewer.