Changeset 4171 for LMDZ6/branches/LMDZ-ECRAD/libf/dyn3dmem/dynredem_loc.F90
- Timestamp:
- Jun 17, 2022, 4:24:49 PM (2 years ago)
- Location:
- LMDZ6/branches/LMDZ-ECRAD
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-ECRAD
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ-ECRAD/libf/dyn3dmem/dynredem_loc.F90
r3803 r4171 9 9 USE parallel_lmdz 10 10 USE mod_hallo 11 USE infotrac 11 USE strings_mod, ONLY: maxlen 12 USE infotrac, ONLY: nqtot, tracers 12 13 USE netcdf, ONLY: NF90_CREATE, NF90_DEF_DIM, NF90_INQ_VARID, NF90_GLOBAL, & 13 14 NF90_CLOSE, NF90_PUT_ATT, NF90_UNLIMITED, NF90_CLOBBER, & … … 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]) … … 174 175 USE parallel_lmdz 175 176 USE mod_hallo 176 USE infotrac 177 USE strings_mod, ONLY: maxlen 178 USE infotrac, ONLY: nqtot, tracers, types_trac 177 179 USE control_mod 178 180 USE netcdf, ONLY: NF90_OPEN, NF90_NOWRITE, NF90_GET_VAR, NF90_INQ_VARID, & … … 204 206 INTEGER, PARAMETER :: length=100 205 207 REAL :: tab_cntrl(length) ! tableau des parametres du run 206 CHARACTER(LEN= 256) :: var, dum208 CHARACTER(LEN=maxlen) :: var, dum 207 209 LOGICAL :: lread_inca 208 210 !=============================================================================== … … 242 244 !$OMP MASTER 243 245 fil="start_trac.nc" 244 IF( type_trac=='inca') INQUIRE(FILE=fil,EXIST=lread_inca)246 IF(ANY(types_trac=='inca') .OR. ANY(types_trac=='inco')) INQUIRE(FILE=fil,EXIST=lread_inca) 245 247 IF(lread_inca) CALL err(NF90_OPEN(fil,NF90_NOWRITE,nid_trac),"open") 246 248 !$OMP END MASTER … … 248 250 249 251 !--- Save tracers 250 DO iq=1,nqtot; var= tname(iq); ierr=-1252 DO iq=1,nqtot; var=TRIM(tracers(iq)%name); ierr=-1 251 253 IF(lread_inca) THEN !--- Possibly read from "start_trac.nc" 252 254 !$OMP MASTER
Note: See TracChangeset
for help on using the changeset viewer.