diff --git a/src/MNH/profilern.f90 b/src/MNH/profilern.f90 index 425ddf294fe45f0831ace0799a09e9cdf660735d..f95533090650d9f5c3252f178feb93068d322e3a 100644 --- a/src/MNH/profilern.f90 +++ b/src/MNH/profilern.f90 @@ -212,6 +212,8 @@ IF ( .NOT. TPROFILERS_TIME%STORESTEP_CHECK_AND_SET( IN ) ) RETURN !No profiler s !* 8. DATA RECORDING ! -------------- ! +IF ( NUMBPROFILER_LOC == 0 ) RETURN ! No profiler on this process + ZTEMP(:,:,:)=PTH(:,:,:)*(PP(:,:,:)/ XP00) **(XRD/XCPD) ! Theta_v ZTHV(:,:,:) = PTH(:,:,:) / (1.+WATER_SUM(PR(:,:,:,:)))*(1.+PR(:,:,:,1)/ZRDSRV)