Hello,
OK thanks. After reading meteo.f: I may be wrong, but I do not understand how you manage parallelism in this file. In commands like :
DO i=1,NPOIN
PATMOS (i)= pres((round*41891)+(i))
ENDDO
you seem to read pressure in a file on channel 98, that would be in global numbering, while you set it in the loop in local numbering, am I wrong ?
Anyway as you deal with months in this subroutine, and because your computation stops after 30 days, I would strongly suspect a problem there.
With best regards,
Jean-Michel Hervouet