diff --git a/src/MNH/read_field.f90 b/src/MNH/read_field.f90 index cd5b98626f101e26f111b0f50e2bc77fda80771c..3f3fc638212f5bdd3225a182ca47d619138e126e 100644 --- a/src/MNH/read_field.f90 +++ b/src/MNH/read_field.f90 @@ -798,7 +798,7 @@ IF (NSV_CHACEND>=NSV_CHACBEG) THEN CNAMES(JSV-NSV_CHACBEG+NSV_CHGS+1) = UPCASE(CNAMES(JSV-NSV_CHACBEG+NSV_CHGS+1)) SELECT CASE(HGETSVT(JSV)) CASE ('READ') - TZFIELD%CMNHNAME = TRIM(CNAMES(JSV-NSV_CHACBEG+NSV_CHGS+1))//'M' + TZFIELD%CMNHNAME = TRIM(CNAMES(JSV-NSV_CHACBEG+NSV_CHGS+1))//'T' TZFIELD%CLONGNAME = TRIM(TZFIELD%CMNHNAME) WRITE(TZFIELD%CCOMMENT,'(A6,A4,I3.3,A4)')'X_Y_Z_','CHAQ',JSV,' (M)' CALL IO_READ_FIELD(TPINIFILE,TZFIELD,PSVT(:,:,:,JSV)) @@ -1667,3 +1667,4 @@ END IF ! ! END SUBROUTINE READ_FIELD +