333 |
|
|
334 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
335 |
|
|
336 |
|
_BEGIN_MASTER( myThid) |
337 |
|
|
338 |
C-- Check if this S/R is called from the right place ; |
C-- Check if this S/R is called from the right place ; |
339 |
C needs to be after DIAGNOSTICS_INIT_EARLY and before DIAGNOSTICS_INIT_FIXED |
C needs to be after DIAGNOSTICS_INIT_EARLY and before DIAGNOSTICS_INIT_FIXED |
340 |
IF ( .NOT.settingDiags ) THEN |
IF ( .NOT.settingDiags ) THEN |
406 |
& SQUEEZE_RIGHT , myThid ) |
& SQUEEZE_RIGHT , myThid ) |
407 |
ENDIF |
ENDIF |
408 |
|
|
409 |
|
_END_MASTER( myThid) |
410 |
|
|
411 |
RETURN |
RETURN |
412 |
END |
END |
413 |
|
|