Changeset 4172 for LMDZ6/trunk/libf/dyn3dmem/dynredem_loc.F90
- Timestamp:
- Jun 17, 2022, 5:49:22 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/dynredem_loc.F90
r4170 r4172 15 15 NF90_64BIT_OFFSET 16 16 USE dynredem_mod, ONLY: cre_var, put_var, err, modname, fil 17 USE comvert_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt,pa,preff,&18 nivsig,nivsigs17 USE comvert_mod, ONLY: ap, bp, presnivs, pa, preff, nivsig, nivsigs,& 18 aps,bps,pseudoalt 19 19 USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad 20 20 USE logic_mod, ONLY: fxyhypb, ysinus … … 37 37 !=============================================================================== 38 38 ! Local variables: 39 INTEGER :: iq , l39 INTEGER :: iq 40 40 INTEGER, PARAMETER :: length=100 41 41 REAL :: tab_cntrl(length) !--- RUN PARAMETERS TABLE … … 45 45 INTEGER :: indexID 46 46 INTEGER :: rlonuID, rlonvID, rlatuID, rlatvID 47 INTEGER :: sID, sigID, nID, vID,timID47 INTEGER :: sID, sigID, nID, timID 48 48 INTEGER :: yyears0, jjour0, mmois0 49 REAL :: z an0, zjulian, hours49 REAL :: zjulian, hours 50 50 !=============================================================================== 51 51 modname='dynredem0'; fil=fichnom … … 145 145 146 146 !--- Define fields saved later 147 WRITE(unites,"('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00')") ,&147 WRITE(unites,"('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00')") & 148 148 yyears0,mmois0,jjour0 149 149 CALL cre_var(nid,"temps","Temps de simulation",[timID],unites) … … 202 202 !=============================================================================== 203 203 ! Local variables: 204 INTEGER :: l,iq, nid, vID, ierr, nid_trac, vID_trac204 INTEGER :: iq, nid, vID, ierr, nid_trac, vID_trac 205 205 INTEGER, SAVE :: nb=0 206 206 INTEGER, PARAMETER :: length=100 … … 213 213 IF(mpi_rank==0) THEN !++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 214 214 modname='dynredem1_loc'; fil=fichnom 215 fil=fichnom216 215 CALL err(NF90_OPEN(fil,NF90_WRITE,nid),"open",fil) 217 216
Note: See TracChangeset
for help on using the changeset viewer.