Changeset 2600 for LMDZ5/trunk/libf/dyn3dpar/initfluxsto_p.F
- Timestamp:
- Jul 23, 2016, 7:45:38 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dpar/initfluxsto_p.F
r2598 r2600 14 14 use misc_mod 15 15 USE comconst_mod, ONLY: pi 16 USE comvert_mod, ONLY: nivsigs 16 17 17 18 implicit none … … 46 47 #include "dimensions.h" 47 48 #include "paramet.h" 48 #include "comvert.h"49 49 #include "comgeom.h" 50 50 #include "temps.h" … … 105 105 CALL ymds2ju(zan, 1, idayref, 0.0, zjulian) 106 106 tau0 = itau_dyn 107 108 107 108 do jj = 1, jjp1 109 109 do ii = 1, iip1 110 110 rlong(ii,jj) = rlonu(ii) * 180. / pi … … 164 164 . 1, iip1, 1, jjn,tau0, zjulian, tstep, vhoriid, 165 165 . filevid,dynv_domain_id) 166 167 rl(1,1) = 1. 166 167 rl(1,1) = 1. 168 168 169 169 if (mpi_rank==0) then … … 190 190 call histhori(fileid, iip1, rlong(:,jjb:jje),jjn,rlat(:,jjb:jje), 191 191 . 'scalar','Grille points scalaires', thoriid) 192 192 193 193 C 194 194 C Appel a histvert pour la grille verticale … … 210 210 C 211 211 C Appels a histdef pour la definition des variables a sauvegarder 212 213 212 213 CALL histdef(fileid, "phis", "Surface geop. height", "-", 214 214 . iip1,jjn,thoriid, 1,1,1, -99, 32, 215 215 . "once", t_ops, t_wrt) … … 218 218 . iip1,jjn,thoriid, 1,1,1, -99, 32, 219 219 . "once", t_ops, t_wrt) 220 220 221 221 if (mpi_rank==0) then 222 223 222 223 CALL histdef(filedid, "dtvr", "tps dyn", "s", 224 224 . 1,1,dhoriid, 1,1,1, -99, 32, 225 225 . "once", t_ops, t_wrt) … … 288 288 if (mpi_rank==0) call histsync(filedid) 289 289 endif 290 290 291 291 #else 292 292 write(lunout,*)'initfluxsto_p: Needs IOIPSL to function'
Note: See TracChangeset
for help on using the changeset viewer.