| 1 | ! |
|---|
| 2 | ! $Header$ |
|---|
| 3 | ! |
|---|
| 4 | c IF (ok_mensuelNMC) THEN |
|---|
| 5 | IF (ok_mensuel) THEN |
|---|
| 6 | c |
|---|
| 7 | ndex2d = 0 |
|---|
| 8 | ndex3d = 0 |
|---|
| 9 | c |
|---|
| 10 | c Champs 2D: |
|---|
| 11 | c |
|---|
| 12 | |
|---|
| 13 | zsto = dtime |
|---|
| 14 | zout = dtime * ecrit_mth |
|---|
| 15 | itau_w = itau_phy + itap |
|---|
| 16 | |
|---|
| 17 | i = NINT(zout/zsto) |
|---|
| 18 | c |
|---|
| 19 | c Champs interpolles sur des niveaux de pression du NMC |
|---|
| 20 | c110304 BEG |
|---|
| 21 | DO k=1, nlevSTD |
|---|
| 22 | c |
|---|
| 23 | bb=clevSTD(k) |
|---|
| 24 | c |
|---|
| 25 | IF(k.GE.2) THEN |
|---|
| 26 | aa=clevSTD(k) |
|---|
| 27 | bb=aa(1:lnblnk1(aa)) |
|---|
| 28 | ENDIF |
|---|
| 29 | c |
|---|
| 30 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, tlevSTD(:,k),zx_tmp_2d) |
|---|
| 31 | CALL histwrite_phy(nid_nmc,"t"//bb,itau_w,tlevSTD(:,k)) |
|---|
| 32 | c |
|---|
| 33 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, philevSTD(:,k),zx_tmp_2d) |
|---|
| 34 | CALL histwrite_phy(nid_nmc,"phi"//bb,itau_w,philevSTD(:,k)) |
|---|
| 35 | c |
|---|
| 36 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, qlevSTD(:,k),zx_tmp_2d) |
|---|
| 37 | CALL histwrite_phy(nid_nmc,"q"//bb,itau_w,qlevSTD(:,k)) |
|---|
| 38 | c |
|---|
| 39 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, rhlevSTD(:,k),zx_tmp_2d) |
|---|
| 40 | CALL histwrite_phy(nid_nmc,"rh"//bb,itau_w,rhlevSTD(:,k)) |
|---|
| 41 | c |
|---|
| 42 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, ulevSTD(:,k),zx_tmp_2d) |
|---|
| 43 | CALL histwrite_phy(nid_nmc,"u"//bb,itau_w,ulevSTD(:,k)) |
|---|
| 44 | c |
|---|
| 45 | cym CALL gr_fi_ecrit(1, klon,iim,jjmp1, vlevSTD(:,k),zx_tmp_2d) |
|---|
| 46 | CALL histwrite_phy(nid_nmc,"v"//bb,itau_w,vlevSTD(:,k)) |
|---|
| 47 | c |
|---|
| 48 | ENDDO !k=1, nlevSTD |
|---|
| 49 | ccc |
|---|
| 50 | c110304 END |
|---|
| 51 | c |
|---|
| 52 | if (ok_sync) then |
|---|
| 53 | call histsync(nid_nmc) |
|---|
| 54 | endif |
|---|
| 55 | |
|---|
| 56 | ENDIF |
|---|
