Changeset 704 for LMDZ4/branches/V3_test/libf/phylmd/write_histmthNMC.h
- Timestamp:
- Aug 17, 2006, 5:41:51 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/V3_test/libf/phylmd/write_histmthNMC.h
r694 r704 13 13 IF(type_run.EQ."CLIM".OR.type_run.EQ."ENSP") THEN 14 14 ccc 15 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,tsumSTD(:,:,2), 16 $ zx_tmp_NC) 17 CALL histwrite(nid_nmc,"temp",itau_w,zx_tmp_NC, 18 $ iim*jjmp1*nlevSTD,ndex3d) 15 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,tsumSTD(:,:,2), 16 cym $ zx_tmp_NC) 17 CALL histwrite_phy(nid_nmc,"temp",itau_w,tsumSTD(:,:,2)) 19 18 c 20 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,phisumSTD(:,:,2), 21 $ zx_tmp_NC) 22 CALL histwrite(nid_nmc,"phi",itau_w,zx_tmp_NC, 23 $ iim*jjmp1*nlevSTD,ndex3d) 19 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,phisumSTD(:,:,2), 20 cym $ zx_tmp_NC) 21 CALL histwrite_phy(nid_nmc,"phi",itau_w,phisumSTD(:,:,2)) 24 22 c 25 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,qsumSTD(:,:,2), 26 $ zx_tmp_NC) 27 CALL histwrite(nid_nmc,"q",itau_w,zx_tmp_NC, 28 $ iim*jjmp1*nlevSTD,ndex3d) 23 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,qsumSTD(:,:,2), 24 cym $ zx_tmp_NC) 25 CALL histwrite_phy(nid_nmc,"q",itau_w,qsumSTD(:,:,2)) 29 26 c 30 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,rhsumSTD(:,:,2), 31 $ zx_tmp_NC) 32 CALL histwrite(nid_nmc,"rh",itau_w,zx_tmp_NC, 33 $ iim*jjmp1*nlevSTD,ndex3d) 27 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,rhsumSTD(:,:,2), 28 cym $ zx_tmp_NC) 29 CALL histwrite_phy(nid_nmc,"rh",itau_w,rhsumSTD(:,:,2)) 34 30 c 35 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,usumSTD(:,:,2), 36 $ zx_tmp_NC) 37 CALL histwrite(nid_nmc,"u",itau_w,zx_tmp_NC, 38 $ iim*jjmp1*nlevSTD,ndex3d) 31 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,usumSTD(:,:,2), 32 cym $ zx_tmp_NC) 33 CALL histwrite_phy(nid_nmc,"u",itau_w,usumSTD(:,:,2)) 39 34 c 40 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,vsumSTD(:,:,2), 41 $ zx_tmp_NC) 42 CALL histwrite(nid_nmc,"v",itau_w,zx_tmp_NC, 43 $ iim*jjmp1*nlevSTD,ndex3d) 35 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,vsumSTD(:,:,2), 36 cym $ zx_tmp_NC) 37 CALL histwrite_phy(nid_nmc,"v",itau_w,vsumSTD(:,:,2)) 44 38 ccc 45 39 ELSE IF(type_run.EQ."AMIP".OR.type_run.EQ."CFMI") THEN 46 40 ccc 47 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,tsumSTD(:,:,3), 48 $ zx_tmp_NC) 49 CALL histwrite(nid_nmc,"temp",itau_w,zx_tmp_NC, 50 $ iim*jjmp1*nlevSTD,ndex3d) 41 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,tsumSTD(:,:,3), 42 cym $ zx_tmp_NC) 43 CALL histwrite_phy(nid_nmc,"temp",itau_w,tsumSTD(:,:,3)) 51 44 c 52 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,phisumSTD(:,:,3), 53 $ zx_tmp_NC) 54 CALL histwrite(nid_nmc,"phi",itau_w,zx_tmp_NC, 55 $ iim*jjmp1*nlevSTD,ndex3d) 45 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,phisumSTD(:,:,3), 46 cym $ zx_tmp_NC) 47 CALL histwrite_phy(nid_nmc,"phi",itau_w,phisumSTD(:,:,3)) 56 48 c 57 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,qsumSTD(:,:,3), 58 $ zx_tmp_NC) 59 CALL histwrite(nid_nmc,"q",itau_w,zx_tmp_NC, 60 $ iim*jjmp1*nlevSTD,ndex3d) 49 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,qsumSTD(:,:,3), 50 cym $ zx_tmp_NC) 51 CALL histwrite_phy(nid_nmc,"q",itau_w,qsumSTD(:,:,3)) 61 52 c 62 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,rhsumSTD(:,:,3), 63 $ zx_tmp_NC) 64 CALL histwrite(nid_nmc,"rh",itau_w,zx_tmp_NC, 65 $ iim*jjmp1*nlevSTD,ndex3d) 53 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,rhsumSTD(:,:,3), 54 cym $ zx_tmp_NC) 55 CALL histwrite_phy(nid_nmc,"rh",itau_w,rhsumSTD(:,:,3)) 66 56 c 67 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,usumSTD(:,:,3), 68 $ zx_tmp_NC) 69 CALL histwrite(nid_nmc,"u",itau_w,zx_tmp_NC, 70 $ iim*jjmp1*nlevSTD,ndex3d) 57 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,usumSTD(:,:,3), 58 cym $ zx_tmp_NC) 59 CALL histwrite_phy(nid_nmc,"u",itau_w,usumSTD(:,:,3)) 71 60 c 72 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,vsumSTD(:,:,3), 73 $ zx_tmp_NC) 74 CALL histwrite(nid_nmc,"v",itau_w,zx_tmp_NC, 75 $ iim*jjmp1*nlevSTD,ndex3d) 61 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,vsumSTD(:,:,3), 62 cym $ zx_tmp_NC) 63 CALL histwrite_phy(nid_nmc,"v",itau_w,vsumSTD(:,:,3)) 76 64 c 77 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,wsumSTD(:,:,3), 78 $ zx_tmp_NC) 79 CALL histwrite(nid_nmc,"w",itau_w,zx_tmp_NC, 80 $ iim*jjmp1*nlevSTD,ndex3d) 65 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,wsumSTD(:,:,3), 66 cym $ zx_tmp_NC) 67 CALL histwrite_phy(nid_nmc,"w",itau_w,wsumSTD(:,:,3)) 81 68 c 82 69 DO k=1, nlevSTD … … 90 77 ENDDO !k=1, nlevSTD 91 78 c 92 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,zx_tmp_fiNC,zx_tmp_NC) 93 CALL histwrite(nid_nmc,"psbg",itau_w,zx_tmp_NC, 94 $ iim*jjmp1*nlevSTD,ndex3d) 79 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,zx_tmp_fiNC,zx_tmp_NC) 80 CALL histwrite_phy(nid_nmc,"psbg",itau_w,zx_tmp_fiNC) 95 81 c 96 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,uvsumSTD(:,:,3), 97 $ zx_tmp_NC) 98 CALL histwrite(nid_nmc,"uv",itau_w,zx_tmp_NC, 99 $ iim*jjmp1*nlevSTD,ndex3d) 82 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,uvsumSTD(:,:,3), 83 cym $ zx_tmp_NC) 84 CALL histwrite_phy(nid_nmc,"uv",itau_w,uvsumSTD(:,:,3)) 100 85 c 101 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,vqsumSTD(:,:,3), 102 $ zx_tmp_NC) 103 CALL histwrite(nid_nmc,"vq",itau_w,zx_tmp_NC, 104 $ iim*jjmp1*nlevSTD,ndex3d) 86 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,vqsumSTD(:,:,3), 87 cym $ zx_tmp_NC) 88 CALL histwrite_phy(nid_nmc,"vq",itau_w,vqsumSTD(:,:,3)) 105 89 c 106 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,vTsumSTD(:,:,3), 107 $ zx_tmp_NC) 108 CALL histwrite(nid_nmc,"vT",itau_w,zx_tmp_NC, 109 $ iim*jjmp1*nlevSTD,ndex3d) 90 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,vTsumSTD(:,:,3), 91 cym $ zx_tmp_NC) 92 CALL histwrite_phy(nid_nmc,"vT",itau_w,vTsumSTD(:,:,3)) 110 93 c 111 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1, wqsumSTD(:,:,3), 112 $ zx_tmp_NC) 113 CALL histwrite(nid_nmc,"wq",itau_w,zx_tmp_NC, 114 $ iim*jjmp1*nlevSTD,ndex3d) 94 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1, wqsumSTD(:,:,3), 95 cym $ zx_tmp_NC) 96 CALL histwrite_phy(nid_nmc,"wq",itau_w,wqsumSTD(:,:,3)) 115 97 c 116 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,vphisumSTD(:,:,3), 117 $ zx_tmp_NC) 118 CALL histwrite(nid_nmc,"vphi",itau_w,zx_tmp_NC, 119 $ iim*jjmp1*nlevSTD,ndex3d) 98 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,vphisumSTD(:,:,3), 99 cym $ zx_tmp_NC) 100 CALL histwrite_phy(nid_nmc,"vphi",itau_w,vphisumSTD(:,:,3)) 120 101 c 121 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,wTsumSTD(:,:,3), 122 $ zx_tmp_NC) 123 CALL histwrite(nid_nmc,"wT",itau_w,zx_tmp_NC, 124 $ iim*jjmp1*nlevSTD,ndex3d) 102 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,wTsumSTD(:,:,3), 103 cym $ zx_tmp_NC) 104 CALL histwrite_phy(nid_nmc,"wT",itau_w,wTsumSTD(:,:,3)) 125 105 c 126 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,u2sumSTD(:,:,3), 127 $ zx_tmp_NC) 128 CALL histwrite(nid_nmc,"uxu",itau_w,zx_tmp_NC, 129 $ iim*jjmp1*nlevSTD,ndex3d) 106 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,u2sumSTD(:,:,3), 107 cym $ zx_tmp_NC) 108 CALL histwrite_phy(nid_nmc,"uxu",itau_w,u2sumSTD(:,:,3)) 130 109 c 131 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,v2sumSTD(:,:,3), 132 $ zx_tmp_NC) 133 CALL histwrite(nid_nmc,"vxv",itau_w,zx_tmp_NC, 134 $ iim*jjmp1*nlevSTD,ndex3d) 110 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,v2sumSTD(:,:,3), 111 cym $ zx_tmp_NC) 112 CALL histwrite_phy(nid_nmc,"vxv",itau_w,v2sumSTD(:,:,3)) 135 113 c 136 CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,T2sumSTD(:,:,3), 137 $ zx_tmp_NC) 138 CALL histwrite(nid_nmc,"TxT",itau_w,zx_tmp_NC, 139 $ iim*jjmp1*nlevSTD,ndex3d) 114 cym CALL gr_fi_ecrit(nlevSTD, klon,iim,jjmp1,T2sumSTD(:,:,3), 115 cym $ zx_tmp_NC) 116 CALL histwrite_phy(nid_nmc,"TxT",itau_w,T2sumSTD(:,:,3)) 140 117 c 141 118 ENDIF !type_run
Note: See TracChangeset
for help on using the changeset viewer.