Changeset 4046 for LMDZ6/trunk/libf/dyn3dmem/dynredem_loc.F90
- Timestamp:
- Dec 15, 2021, 11:18:49 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/dynredem_loc.F90
r3865 r4046 14 14 NF90_64BIT_OFFSET 15 15 USE dynredem_mod, ONLY: cre_var, put_var, err, modname, fil 16 USE strings_mod, ONLY: maxlen 16 17 USE comvert_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt,pa,preff, & 17 18 nivsig,nivsigs … … 41 42 REAL :: phis_glo(ip1jmp1) 42 43 ! For NetCDF: 43 CHARACTER(LEN= 30) :: unites44 CHARACTER(LEN=maxlen) :: unites 44 45 INTEGER :: indexID 45 46 INTEGER :: rlonuID, rlonvID, rlatuID, rlatvID … … 151 152 CALL cre_var(nid,"teta" ,"Temperature",[rlonvID,rlatuID,sID,timID]) 152 153 DO iq=1,nqtot 153 CALL cre_var(nid,t name(iq),ttext(iq),[rlonvID,rlatuID,sID,timID])154 CALL cre_var(nid,tracers(iq)%name,tracers(iq)%longName,[rlonvID,rlatuID,sID,timID]) 154 155 END DO 155 156 CALL cre_var(nid,"masse","Masse d air" ,[rlonvID,rlatuID,sID,timID]) … … 204 205 INTEGER, PARAMETER :: length=100 205 206 REAL :: tab_cntrl(length) ! tableau des parametres du run 206 CHARACTER(LEN= 256) :: var, dum207 CHARACTER(LEN=maxlen) :: var, dum 207 208 LOGICAL :: lread_inca 208 209 !=============================================================================== … … 248 249 249 250 !--- Save tracers 250 DO iq=1,nqtot; var= tname(iq); ierr=-1251 DO iq=1,nqtot; var=TRIM(tracers(iq)%name); ierr=-1 251 252 IF(lread_inca) THEN !--- Possibly read from "start_trac.nc" 252 253 !$OMP MASTER
Note: See TracChangeset
for help on using the changeset viewer.